From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 31 Oct 1999 04:36:37 +0000 (+0000)
Subject: Change argument to CURRENT-REPL-BUFFER and CURRENT-REPL-BUFFER* to be
X-Git-Tag: 20090517-FFI~4432
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8efa8f5872c98c1ccc2fd11e561302be24260377;p=mit-scheme.git

Change argument to CURRENT-REPL-BUFFER and CURRENT-REPL-BUFFER* to be
optional.
---

diff --git a/v7/src/edwin/intmod.scm b/v7/src/edwin/intmod.scm
index 9eb73e8ac..2ba055047 100644
--- a/v7/src/edwin/intmod.scm
+++ b/v7/src/edwin/intmod.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: intmod.scm,v 1.103 1999/10/31 04:31:58 cph Exp $
+;;; $Id: intmod.scm,v 1.104 1999/10/31 04:36:37 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-1999 Massachusetts Institute of Technology
 ;;;
@@ -164,14 +164,18 @@ evaluated in the specified inferior REPL buffer."
 (define (inferior-repl/quit)
   unspecific)
 
-(define (current-repl-buffer buffer)
-  (let ((buffer (current-repl-buffer* buffer)))
+(define (current-repl-buffer #!optional buffer)
+  (let ((buffer
+	 (current-repl-buffer* (if (default-object? buffer) #f buffer))))
     (if (not buffer)
 	(error "No REPL to evaluate in."))
     buffer))
 
-(define (current-repl-buffer* buffer)
-  (let ((buffer (or buffer (current-buffer))))
+(define (current-repl-buffer* #!optional buffer)
+  (let ((buffer
+	 (if (or (default-object? buffer) (not buffer))
+	     (current-buffer)
+	     buffer)))
     (if (repl-buffer? buffer)
 	buffer
 	(or (local-repl-buffer buffer)
@@ -523,7 +527,7 @@ Additionally, these commands abort the command loop:
 
 (define (interrupt-command interrupt flush-queue?)
   (lambda ()
-    (let ((port (buffer-interface-port (current-repl-buffer #f) #t)))
+    (let ((port (buffer-interface-port (current-repl-buffer) #t)))
       (signal-thread-event (port/thread port) interrupt)
       (if flush-queue?
 	  (flush-queue! (port/expression-queue port))))))