From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 30 Jan 1995 20:04:30 +0000 (+0000)
Subject: Fix bug reported by BAL: CALL-WITH-INPUT-COPIER was examining the
X-Git-Tag: 20090517-FFI~6690
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ca5587e634f4e5e9c2dff1848ec2bca077ec0ffd;p=mit-scheme.git

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 c56e61e6c..5b25e6a1e 100644
--- 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))))))))