From 18eca0a6b11b54b47390c7d2fe64453d5b8e3019 Mon Sep 17 00:00:00 2001
From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Tue, 26 Apr 2011 10:47:42 -0700
Subject: [PATCH] Fixed compile-ffi to use run-shell-command.

Now sets the working directory and checks make's exit code.
---
 src/etc/compile.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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)
-- 
2.25.1