Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 21:59:17 +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)
(excludes '())
(cfiles '())
(inline? #f))
(inline? #t))
(cond
((and (pair? args) (not (equal? "" (car args)))
(eqv? #\- (string-ref (car args) 0)))
(case (string->symbol (car args))
((--inline)
(lp (cdr args) features includes excludes cfiles #t))
((--no-inline)
(lp (cdr args) features includes excludes cfiles #f))
((--features)
(if (null? (cdr args))
(error "--features requires an argument"))
@ -425,8 +427,7 @@
(set! *features* features))
(let* ((c-libs+c-files (find-c-libs includes excludes cfiles))
(c-libs (car c-libs+c-files))
(c-files (cdr c-libs+c-files))
(inline? #t))
(c-files (cdr c-libs+c-files)))
(display "#include \"chibi/eval.h\"\n")
(newline)
(for-each (lambda (x) (include-c-lib x c-files inline?)) c-libs)