From 44b08ebda0ad7b9741883dc83c6f5f9ea4bd0af3 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 3 Aug 1997 06:44:39 +0000
Subject: [PATCH] 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.

---
 v7/src/edwin/intmod.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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))))
-- 
2.25.1