From 840ed07b7d900cdd6028a72e8d64620e2585eda9 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 21 Oct 1993 04:55:23 +0000
Subject: [PATCH] Since REPL/START now binds the current input and output
 ports, there's no reason for them to be bound a second time here.

---
 v7/src/edwin/intmod.scm | 40 ++++++++++++++++++----------------------
 1 file changed, 18 insertions(+), 22 deletions(-)

diff --git a/v7/src/edwin/intmod.scm b/v7/src/edwin/intmod.scm
index f7e9b5e43..3d02c406c 100644
--- a/v7/src/edwin/intmod.scm
+++ b/v7/src/edwin/intmod.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: intmod.scm,v 1.72 1993/10/18 22:51:14 cph Exp $
+;;;	$Id: intmod.scm,v 1.73 1993/10/21 04:55:23 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-93 Massachusetts Institute of Technology
 ;;;
@@ -102,27 +102,23 @@ REPL uses current evaluation environment."
 				    (detach-thread thread)
 				    thread))))
 	(attach-buffer-interface-port! buffer port)
-	(with-input-from-port port
-	  (lambda ()
-	    (with-output-to-port port
-	      (lambda ()
-		(fluid-let ((%exit inferior-repl/%exit)
-			    (quit inferior-repl/quit))
-		  (dynamic-wind
-		   (lambda () unspecific)
-		   (lambda ()
-		     (repl/start (make-repl false
-					    port
-					    environment
-					    syntax-table
-					    false
-					    `((ERROR-DECISION ,error-decision))
-					    user-initial-prompt)
-				 (make-init-message message)))
-		   (lambda ()
-		     (signal-thread-event editor-thread
-		       (lambda ()
-			 (unwind-inferior-repl-buffer buffer))))))))))))))
+	(fluid-let ((%exit inferior-repl/%exit)
+		    (quit inferior-repl/quit))
+	  (dynamic-wind
+	   (lambda () unspecific)
+	   (lambda ()
+	     (repl/start (make-repl false
+				    port
+				    environment
+				    syntax-table
+				    false
+				    `((ERROR-DECISION ,error-decision))
+				    user-initial-prompt)
+			 (make-init-message message)))
+	   (lambda ()
+	     (signal-thread-event editor-thread
+	       (lambda ()
+		 (unwind-inferior-repl-buffer buffer))))))))))
 
 (define (make-init-message message)
   (if message
-- 
2.25.1