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

Fixing recent chibi-ffi -c breakage (patch from Lorenzo).

Browse source
This commit is contained in:
Alex Shinn 2015-01-14 06:26:43 +09:00
parent 2ffef7957d
commit 8975586ffe
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
tools/chibi-ffi
View file

@ -1971,7 +1971,7 @@
(error "--flags requires an argument")) (error "--flags requires an argument"))
(lp (cddr args) (lp (cddr args)
compile? compile?
(append cflag (string-split (cadr args) #\space)) (append cflags (string-split (cadr args) #\space))
features)) features))
((--features) ((--features)
(if (null? (cdr args)) (if (null? (cdr args))
@ -2013,8 +2013,8 @@
(base-args (append cflags `("-o" ,so ,dest "-lchibi-scheme"))) (base-args (append cflags `("-o" ,so ,dest "-lchibi-scheme")))
(args (args
(eval (eval
'(cond-expand `(cond-expand
(macosx (append '("-dynamiclib" "-Oz") base-args)) (macosx (append '("-dynamiclib" "-Oz") ',base-args))
(else (append '("-fPIC" "-shared" "-Os") base-args))))) (else (append '("-fPIC" "-shared" "-Os") ',base-args)))))
(cc (if *c++?* "c++" "cc"))) (cc (if *c++?* "c++" "cc")))
(execute cc (cons cc args)))))))))) (execute cc (cons cc args))))))))))