Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-20 14:19:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge branch 'master' of https://github.com/ashinn/chibi-scheme

Browse source
This commit is contained in:
Alex Shinn 2017-11-08 22:56:45 +09:00
commit affe06c6e5
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
tools/chibi-genstatic
View file

@ -393,13 +393,15 @@
(includes #f) (includes #f)
(excludes '()) (excludes '())
(cfiles '()) (cfiles '())
(inline? #f)) (inline? #t))
(cond (cond
((and (pair? args) (not (equal? "" (car args))) ((and (pair? args) (not (equal? "" (car args)))
(eqv? #\- (string-ref (car args) 0))) (eqv? #\- (string-ref (car args) 0)))
(case (string->symbol (car args)) (case (string->symbol (car args))
((--inline) ((--inline)
(lp (cdr args) features includes excludes cfiles #t)) (lp (cdr args) features includes excludes cfiles #t))
((--no-inline)
(lp (cdr args) features includes excludes cfiles #f))
((--features) ((--features)
(if (null? (cdr args)) (if (null? (cdr args))
(error "--features requires an argument")) (error "--features requires an argument"))
@ -425,8 +427,7 @@
(set! *features* features)) (set! *features* features))
(let* ((c-libs+c-files (find-c-libs includes excludes cfiles)) (let* ((c-libs+c-files (find-c-libs includes excludes cfiles))
(c-libs (car c-libs+c-files)) (c-libs (car c-libs+c-files))
(c-files (cdr c-libs+c-files)) (c-files (cdr c-libs+c-files)))
(inline? #t))
(display "#include \"chibi/eval.h\"\n") (display "#include \"chibi/eval.h\"\n")
(newline) (newline)
(for-each (lambda (x) (include-c-lib x c-files inline?)) c-libs) (for-each (lambda (x) (include-c-lib x c-files inline?)) c-libs)