From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Tue, 26 Apr 2011 17:47:42 +0000 (-0700)
Subject: Fixed compile-ffi to use run-shell-command.
X-Git-Tag: 20110426-Gtk~1^2~1
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=18eca0a6b11b54b47390c7d2fe64453d5b8e3019;p=mit-scheme.git

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 a480c28e6..23946e938 100644
--- 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)