Fix bug reported by BAL: CALL-WITH-INPUT-COPIER was examining the

value returned by OUTPUT-PORT/WRITE-SUBSTRING -- but that procedure
has no useful value.

diff --git a/v7/src/edwin/process.scm b/v7/src/edwin/process.scm
index c56e61e6cc0ae576e43a4b1ea8a507f90887c712..5b25e6a1e48b067188ec918109343348e69df694 100644 (file)
--- a/v7/src/edwin/process.scm
+++ b/v7/src/edwin/process.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Id: process.scm,v 1.35 1995/01/23 20:05:52 cph Exp $
+;;;    $Id: process.scm,v 1.36 1995/01/30 20:04:30 cph Exp $
 ;;;
 ;;;    Copyright (c) 1991-95 Massachusetts Institute of Technology
 ;;;
@@ -670,15 +670,10 @@ after the listing is made.)"
                        (let ((index (min (+ start-index 512) end-index)))
                          (group-copy-substring! group start-index index
                                                 buffer 0)
-                         (let* ((end (- index start-index))
-                                (n
-                                 (output-port/write-substring port
-                                                              buffer 0 end)))
-                           (if n
-                               (begin
-                                 (set! start-index (+ start-index n))
-                                 (if (= n end)
-                                     (loop))))))
+                         (let ((end (- index start-index)))
+                           (output-port/write-substring port buffer 0 end)
+                           (set! start-index (+ start-index end)))
+                         (loop))
                        (channel-close channel)))))
              loop))))))))