Always run compilation subprocesses with pipes.

diff --git a/v7/src/edwin/compile.scm b/v7/src/edwin/compile.scm
index 03c91a336e79c5f0aa9851ca6d9555200fe2df47..2a900a180604aa26664ea6f96bd8aff4c3d8e528 100644 (file)
--- a/v7/src/edwin/compile.scm
+++ b/v7/src/edwin/compile.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: compile.scm,v 1.12 1999/05/13 02:08:26 cph Exp $
+;;; $Id: compile.scm,v 1.13 1999/09/14 20:18:23 cph Exp $
 ;;;
 ;;; Copyright (c) 1992-1999 Massachusetts Institute of Technology
 ;;;
@@ -88,9 +88,8 @@ with output going to the buffer *compilation*."
     (disable-group-undo! (buffer-group buffer))
     (set-buffer-default-directory! buffer directory)
     (set-buffer-major-mode! buffer (ref-mode-object fundamental))
-    (define-variable-local-value! buffer
-       (ref-variable-object mode-line-process)
-      '(": %s"))
+    (local-set-variable! mode-line-process '(": %s") buffer)
+    (local-set-variable! process-connection-type #f buffer)
     (let ((mark (mark-left-inserting-copy (buffer-start buffer))))
       (let ((window (get-buffer-window buffer)))
        (if window