From d689bf966162529dcb1f7a04be90db26eaa318bd Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 31 Jan 1995 21:35:02 +0000
Subject: [PATCH] Generalize for OS/2.

---
 v7/src/edwin/compile.scm | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/v7/src/edwin/compile.scm b/v7/src/edwin/compile.scm
index 676c126fd..01d814806 100644
--- a/v7/src/edwin/compile.scm
+++ b/v7/src/edwin/compile.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: compile.scm,v 1.3 1994/09/09 01:23:34 adams Exp $
+;;;	$Id: compile.scm,v 1.4 1995/01/31 21:35:02 cph Exp $
 ;;;
-;;;	Copyright (c) 1992 Massachusetts Institute of Technology
+;;;	Copyright (c) 1992-95 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -45,7 +45,7 @@
 ;;;; Compilation Subprocess
 
 (declare (usual-integrations))
-
+
 (define-variable compile-command
   "Last shell command used to do a compilation; default for next compilation."
   "make -k")
@@ -120,12 +120,12 @@ with output going to the buffer *compilation*."
       (insert-newline mark)
       (mark-temporary! mark))
     (let ((process
-	   (start-process "compilation"
-			  buffer
-			  scheme-subprocess-environment
-			  "/bin/sh"
-			  "-c"
-			  (string-append "exec " command))))
+	   (apply start-process
+		  "compilation"
+		  buffer
+		  scheme-subprocess-environment
+		  (ref-variable shell-file-name)
+		  (os/form-shell-command command))))
       (set-process-sentinel! process compilation-process-sentinel)
       (set! compilation-process process))
     (pop-up-buffer buffer false)))
-- 
2.25.1