From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 15 May 1996 20:05:50 +0000 (+0000)
Subject: Fix thinko.
X-Git-Tag: 20090517-FFI~5507
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c9ad4a61855d4fa5c09bc3edf53c69d80a0f2eaa;p=mit-scheme.git

Fix thinko.
---

diff --git a/v7/src/edwin/process.scm b/v7/src/edwin/process.scm
index b26bc0d19..8c1b8165e 100644
--- a/v7/src/edwin/process.scm
+++ b/v7/src/edwin/process.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: process.scm,v 1.49 1996/05/15 18:48:40 cph Exp $
+;;;	$Id: process.scm,v 1.50 1996/05/15 20:05:50 cph Exp $
 ;;;
 ;;;	Copyright (c) 1991-96 Massachusetts Institute of Technology
 ;;;
@@ -668,7 +668,9 @@ after the listing is made.)"
 				 port buffer 0 (- index start-index))))
 			   (set! start-index (+ start-index n-written))
 			   n-written))
-		       (output-port/close port)))))))
+		       (begin
+			 (output-port/close port)
+			 0)))))))
 	  (begin
 	    (output-port/close port)
 	    (receiver #f))))))