Cut out the SHELL middleman; use run-synchronous-subprocess.

diff --git a/src/etc/compile.scm b/src/etc/compile.scm
index 23946e938b3d59461811148a1ff83b834609eb52..30445eea4161219b847c7c99cc60259ee7783bf6 100644 (file)
--- a/src/etc/compile.scm
+++ b/src/etc/compile.scm
@@ -2,7 +2,8 @@
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
-    2006, 2007, 2008, 2009, 2010 Massachusetts Institute of Technology
+    2006, 2007, 2008, 2009, 2010, 2011 Massachusetts Institute of
+    Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -44,11 +45,11 @@ USA.
       (in-liarc
        (lambda ()
         (c-compile-dir dir)
-        (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))))))
+        (let* ((line '("make" "compile-liarc-bundle"))
+               (code (run-synchronous-subprocess
+                      (car line) (cdr line) 'working-directory dir)))
+          (if (not (zero? code))
+              (error "Process exited with error code:" code line)))))
       (compile-dir dir)))
 
 (define (compile-boot-dirs compile-dir)