From dde58bdfdef21158d5039b0664d2222c5cef5863 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 5 Nov 1999 05:48:19 +0000 Subject: [PATCH] When starting a new REPL, don't associate it with the current buffer; avoid confusion by letting the user do this manually. --- v7/src/edwin/intmod.scm | 15 ++------------- 1 file changed, 2 insertions(+), 13 deletions(-) diff --git a/v7/src/edwin/intmod.scm b/v7/src/edwin/intmod.scm index 84c398309..2753aecd2 100644 --- a/v7/src/edwin/intmod.scm +++ b/v7/src/edwin/intmod.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Id: intmod.scm,v 1.105 1999/10/31 15:04:23 cph Exp $ +;;; $Id: intmod.scm,v 1.106 1999/11/05 05:48:19 cph Exp $ ;;; ;;; Copyright (c) 1986, 1989-1999 Massachusetts Institute of Technology ;;; @@ -64,9 +64,7 @@ With no arguments, selects the current evaluation buffer, or creates a new one if there is none. With one C-u, creates a new REPL buffer unconditionally. With two C-u's, creates a new REPL buffer with a new evaluation environment. - (Otherwise USER-INITIAL-ENVIRONMENT is used.) -If a new REPL buffer is created, it automatically becomes the REPL buffer - for the current buffer." + (Otherwise USER-INITIAL-ENVIRONMENT is used.)" "p" (lambda (argument) (select-buffer @@ -78,15 +76,6 @@ If a new REPL buffer is created, it automatically becomes the REPL buffer environment (environment-syntax-table environment) #f) - ;; Wait for the buffer's thread to start up and - ;; attach its interface port. - (let loop () - (if (not (repl-buffer? repl-buffer)) - (loop))) - ;; If there is already a global REPL buffer, make - ;; this one the local REPL buffer for this buffer. - (if (pair? (repl-buffer-list)) - (set-local-repl-buffer! buffer repl-buffer)) repl-buffer)))) (if (>= argument 16) (make-new (extend-ic-environment system-global-environment)) -- 2.25.1