From 304dea6de43f9bfb6ba525821fc5c7af3683dcf7 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 27 Feb 2001 17:21:01 +0000
Subject: [PATCH] Don't explicitly bind the standard I/O ports; let them all
 default to the cmdl port.

---
 v7/src/runtime/rep.scm | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/v7/src/runtime/rep.scm b/v7/src/runtime/rep.scm
index 13adf5a98..f717c6f4f 100644
--- a/v7/src/runtime/rep.scm
+++ b/v7/src/runtime/rep.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: rep.scm,v 14.55 1999/02/23 21:34:01 cph Exp $
+$Id: rep.scm,v 14.56 2001/02/27 17:21:01 cph Exp $
 
-Copyright (c) 1988-1999 Massachusetts Institute of Technology
+Copyright (c) 1988-2001 Massachusetts Institute of Technology
 
 This program is free software; you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by
@@ -133,11 +133,11 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 			  *working-directory-pathname*)
 			 (*default-pathname-defaults*
 			  *default-pathname-defaults*)
-			 (*current-input-port* port)
-			 (*current-output-port* port)
-			 (*notification-output-port* port)
-			 (*trace-output-port* port)
-			 (*interaction-i/o-port* port))
+			 (*current-input-port* #f)
+			 (*current-output-port* #f)
+			 (*notification-output-port* #f)
+			 (*trace-output-port* #f)
+			 (*interaction-i/o-port* #f))
 	       (let loop ((message message))
 		 (loop
 		  (bind-abort-restart cmdl
-- 
2.25.1