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

chibi-genstatic: Add --no-inline option

Browse source 
Add --no-inline option to improve debuggability.
This commit is contained in:
okuoku 2017-11-08 01:08:30 +09:00
parent 307c3aeecf
commit bfec8b9f4e
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
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"))