From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 3 Aug 1997 06:44:39 +0000 (+0000)
Subject: Fix bug in Scheme mode C-c C-s that could cause already-deleted
X-Git-Tag: 20090517-FFI~5028
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=44b08ebda0ad7b9741883dc83c6f5f9ea4bd0af3;p=mit-scheme.git

Fix bug in Scheme mode C-c C-s that could cause already-deleted
buffers to be selected.  I don't understand why these buffers are
still in this list because there is code to remove them.
---

diff --git a/v7/src/edwin/intmod.scm b/v7/src/edwin/intmod.scm
index 688beb41d..f63efaccb 100644
--- a/v7/src/edwin/intmod.scm
+++ b/v7/src/edwin/intmod.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: intmod.scm,v 1.87 1997/03/30 06:23:43 cph Exp $
+;;;	$Id: intmod.scm,v 1.88 1997/08/03 06:44:39 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-97 Massachusetts Institute of Technology
 ;;;
@@ -162,6 +162,7 @@ REPL uses current evaluation environment."
 	    (global-repl-buffer)))))
 
 (define (global-repl-buffer)
+  (set! repl-buffers (list-transform-positive repl-buffers buffer-alive?))
   (let ((buffers repl-buffers))
     (and (not (null? buffers))
 	 (car buffers))))