Fix thinko.
authorChris Hanson <org/chris-hanson/cph>
Sun, 31 Oct 1999 15:04:23 +0000 (15:04 +0000)
committerChris Hanson <org/chris-hanson/cph>
Sun, 31 Oct 1999 15:04:23 +0000 (15:04 +0000)
v7/src/edwin/intmod.scm

index 2ba055047e31a873a91151ea6b2a23bd4cfff76c..84c398309b4f6489f135dcc006bb818976d7dfb6 100644 (file)
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: intmod.scm,v 1.104 1999/10/31 04:36:37 cph Exp $
+;;; $Id: intmod.scm,v 1.105 1999/10/31 15:04:23 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-1999 Massachusetts Institute of Technology
 ;;;
@@ -85,7 +85,7 @@ If a new REPL buffer is created, it automatically becomes the REPL buffer
                        (loop)))
                  ;; If there is already a global REPL buffer, make
                  ;; this one the local REPL buffer for this buffer.
-                 (if (repl-buffer-list)
+                 (if (pair? (repl-buffer-list))
                      (set-local-repl-buffer! buffer repl-buffer))
                  repl-buffer))))
         (if (>= argument 16)