From: Matt Birkholz Date: Sat, 30 Apr 2011 17:41:28 +0000 (-0700) Subject: Cut out the SHELL middleman; use run-synchronous-subprocess. X-Git-Tag: 20110609-Gtk~16^2~2 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ca237cc0ce0d5ea8aec0feb5018bb74393eedf87;p=mit-scheme.git Cut out the SHELL middleman; use run-synchronous-subprocess. --- diff --git a/src/etc/compile.scm b/src/etc/compile.scm index 23946e938..30445eea4 100644 --- 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)