From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 7 Jan 1993 21:00:23 +0000 (+0000)
Subject: Export REPL history variables needed to make new histories and install
X-Git-Tag: 20090517-FFI~8626
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a952f35e4937ea33a020bd0796903731b01eaa5e;p=mit-scheme.git

Export REPL history variables needed to make new histories and install
them in an active REPL.
---

diff --git a/v7/src/runtime/rep.scm b/v7/src/runtime/rep.scm
index a10595624..d09edd1e9 100644
--- a/v7/src/runtime/rep.scm
+++ b/v7/src/runtime/rep.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: rep.scm,v 14.28 1992/09/14 23:53:03 cph Exp $
+$Id: rep.scm,v 14.29 1993/01/07 21:00:23 cph Exp $
 
-Copyright (c) 1988-92 Massachusetts Institute of Technology
+Copyright (c) 1988-93 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -537,8 +537,8 @@ MIT in each case. |#
   environment
   syntax-table
   (condition false read-only true)
-  (reader-history (make-repl-history reader-history-size))
-  (printer-history (make-repl-history printer-history-size)))
+  (reader-history (make-repl-history repl-reader-history-size))
+  (printer-history (make-repl-history repl-printer-history-size)))
 
 (define (repl? object)
   (and (cmdl? object)
@@ -610,8 +610,8 @@ MIT in each case. |#
 
 ;;;; History
 
-(define reader-history-size 5)
-(define printer-history-size 10)
+(define repl-reader-history-size 5)
+(define repl-printer-history-size 10)
 
 (define-structure (repl-history (constructor %make-repl-history)
 				(conc-name repl-history/))
diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 96688621a..a2caf39fa 100644
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.167 1992/12/10 01:25:45 cph Exp $
+$Id: runtime.pkg,v 14.168 1993/01/07 21:00:12 cph Exp $
 
-Copyright (c) 1988-1992 Massachusetts Institute of Technology
+Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -1770,6 +1770,7 @@ MIT in each case. |#
 	  initial-top-level-repl
 	  make-cmdl
 	  make-repl
+	  make-repl-history
 	  make-repl-message
 	  nearest-cmdl
 	  nearest-cmdl/level
@@ -1788,6 +1789,8 @@ MIT in each case. |#
 	  repl-history/read
 	  repl-history/record!
 	  repl-history/size
+	  repl-printer-history-size
+	  repl-reader-history-size
 	  repl/base
 	  repl/condition
 	  repl/environment
diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index 96688621a..a2caf39fa 100644
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.167 1992/12/10 01:25:45 cph Exp $
+$Id: runtime.pkg,v 14.168 1993/01/07 21:00:12 cph Exp $
 
-Copyright (c) 1988-1992 Massachusetts Institute of Technology
+Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -1770,6 +1770,7 @@ MIT in each case. |#
 	  initial-top-level-repl
 	  make-cmdl
 	  make-repl
+	  make-repl-history
 	  make-repl-message
 	  nearest-cmdl
 	  nearest-cmdl/level
@@ -1788,6 +1789,8 @@ MIT in each case. |#
 	  repl-history/read
 	  repl-history/record!
 	  repl-history/size
+	  repl-printer-history-size
+	  repl-reader-history-size
 	  repl/base
 	  repl/condition
 	  repl/environment