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 a10595624b011aefe070deabd6aa32b5f2729f12..d09edd1e92897e60290f15f8e303cf8069ae46bb 100644 (file)
--- 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. |#
 \f
 ;;;; 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 96688621acd3ab7886a54d9ce6c4c70bcca1cf53..a2caf39fa1685334e80fe7f6eb27296500a78309 100644 (file)
--- 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 96688621acd3ab7886a54d9ce6c4c70bcca1cf53..a2caf39fa1685334e80fe7f6eb27296500a78309 100644 (file)
--- 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