From 6a523a97939511890b9e1cbb930052be46352f21 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 13 Aug 1993 00:07:10 +0000
Subject: [PATCH] Implement REPL-SCODE-EVAL to capture the common idiom of
 evaluating some SCode from a REPL.

---
 v7/src/runtime/rep.scm     | 7 ++++++-
 v7/src/runtime/runtime.pkg | 3 ++-
 v8/src/runtime/runtime.pkg | 3 ++-
 3 files changed, 10 insertions(+), 3 deletions(-)

diff --git a/v7/src/runtime/rep.scm b/v7/src/runtime/rep.scm
index 15f6d5ae8..83916e392 100644
--- 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 ea7cac653..0d68b2f11 100644
--- 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 ea7cac653..0d68b2f11 100644
--- 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
-- 
2.25.1