From: Matt Birkholz 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)