Implement REPL-SCODE-EVAL to capture the common idiom of evaluating

some SCode from a REPL.

diff --git a/v7/src/runtime/rep.scm b/v7/src/runtime/rep.scm
index 15f6d5ae8f216d8bdab74a55a1d8cf3568d0dcae..83916e39293b7ffa8febb434c1ee1735403f9b96 100644 (file)
--- a/v7/src/runtime/rep.scm
+++ b/v7/src/runtime/rep.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: rep.scm,v 14.34 1993/08/13 00:03:23 cph Exp $
+$Id: rep.scm,v 14.35 1993/08/13 00:07:10 cph Exp $
 
 Copyright (c) 1988-93 Massachusetts Institute of Technology
 
@@ -407,6 +407,11 @@ MIT in each case. |#
       (lambda ()
        (extended-scode-eval scode environment)))))
 
+(define (repl-scode-eval repl scode environment)
+  (with-repl-eval-boundary repl
+    (lambda ()
+      (extended-scode-eval scode environment))))
+
 (define (with-repl-eval-boundary repl thunk)
   ((ucode-primitive with-stack-marker 3)
    (lambda () (with-new-history thunk))

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index ea7cac653a04a7ef3c2cf0d717eb2ac81a29da18..0d68b2f11d4c4a9c877612effbc0ce6008f6c83f 100644 (file)
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.189 1993/08/13 00:03:24 cph Exp $
+$Id: runtime.pkg,v 14.190 1993/08/13 00:07:04 cph Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -1818,6 +1818,7 @@ MIT in each case. |#
          repl-history/size
          repl-printer-history-size
          repl-reader-history-size
+         repl-scode-eval
          repl/base
          repl/condition
          repl/environment

diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index ea7cac653a04a7ef3c2cf0d717eb2ac81a29da18..0d68b2f11d4c4a9c877612effbc0ce6008f6c83f 100644 (file)
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.189 1993/08/13 00:03:24 cph Exp $
+$Id: runtime.pkg,v 14.190 1993/08/13 00:07:04 cph Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -1818,6 +1818,7 @@ MIT in each case. |#
          repl-history/size
          repl-printer-history-size
          repl-reader-history-size
+         repl-scode-eval
          repl/base
          repl/condition
          repl/environment