Fixed compile-ffi to use run-shell-command.

Now sets the working directory and checks make's exit code.

diff --git a/src/etc/compile.scm b/src/etc/compile.scm
index a480c28e633e967a002dd8bb24cb6ac5a0199f38..23946e938b3d59461811148a1ff83b834609eb52 100644 (file)
--- a/src/etc/compile.scm
+++ b/src/etc/compile.scm
@@ -44,7 +44,11 @@ USA.
       (in-liarc
        (lambda ()
         (c-compile-dir dir)
-        (run-synchronous-subprocess "make" '("compile-liarc-bundle"))))
+        (let ((line "make compile-liarc-bundle"))
+          (for-each display (list ";Running `"line"' in "dir"...\n"))
+          (let ((code (run-shell-command line 'working-directory dir)))
+            (if (not (zero? code))
+                (error "Shell command exited with error code:" code))))))
       (compile-dir dir)))
 
 (define (compile-boot-dirs compile-dir)