From 2a1f9164752603d43f15ad6d9918453e595abb34 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Thu, 31 Jan 2013 22:26:19 +0900 Subject: [PATCH] chibi-ffi uses execute instead of system when compiling to pass through the result --- tools/chibi-ffi | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/tools/chibi-ffi b/tools/chibi-ffi index c3e1317a..d7705a82 100755 --- a/tools/chibi-ffi +++ b/tools/chibi-ffi @@ -1724,12 +1724,12 @@ ;; chibi-ffi to compile to (chibi process) module. (let* ((so (string-append (strip-extension src) *shared-object-extension*)) - (system (begin (eval '(import (chibi process))) - (eval 'system))) + (execute (begin (eval '(import (chibi process))) + (eval 'execute))) (base-args (append (or cflags '()) `("-o" ,so ,dest "-lchibi-scheme"))) (args (cond-expand (macosx (append '("-dynamiclib" "-Oz") base-args)) (else (append '("-fPIC" "-shared" "-Os") base-args)))) (cc (if *c++?* "c++" "cc"))) - (apply system cc args)))))) + (execute cc (cons cc args)))))))