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

chibi-ffi uses execute instead of system when compiling to pass through the result

Browse source
This commit is contained in:
Alex Shinn 2013-01-31 22:26:19 +09:00
parent 5127e30ab2
commit 2a1f916475
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
tools/chibi-ffi
View file

@ -1724,12 +1724,12 @@
;; chibi-ffi to compile to (chibi process) module. ;; chibi-ffi to compile to (chibi process) module.
(let* ((so (string-append (strip-extension src) (let* ((so (string-append (strip-extension src)
*shared-object-extension*)) *shared-object-extension*))
(system (begin (eval '(import (chibi process))) (execute (begin (eval '(import (chibi process)))
(eval 'system))) (eval 'execute)))
(base-args (append (or cflags '()) (base-args (append (or cflags '())
`("-o" ,so ,dest "-lchibi-scheme"))) `("-o" ,so ,dest "-lchibi-scheme")))
(args (cond-expand (args (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")))
(apply system cc args)))))) (execute cc (cons cc args)))))))