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 688beb41de2872aa33d52419e79d8275467b041f..f63efaccb7b7f635ec1b5aaa79452a36345216ab 100644 (file)
--- 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))))