Use new procedure REPL-SCODE-EVAL to do a standard evaluation of the

SCode within HOOK/REPL-EVAL.

diff --git a/v7/src/6001/nodefs.scm b/v7/src/6001/nodefs.scm
index 0d54357155730547a60b3b998138ea2639d17622..4753f2ae530da28fbea2f351dfedcbffa2652436 100644 (file)
--- a/v7/src/6001/nodefs.scm
+++ b/v7/src/6001/nodefs.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: nodefs.scm,v 1.7 1993/08/12 08:32:46 cph Exp $
+$Id: nodefs.scm,v 1.8 1993/08/13 00:08:00 cph Exp $
 
 Copyright (c) 1991-93 Massachusetts Institute of Technology
 
@@ -42,17 +42,18 @@ MIT in each case. |#
   unspecific)
 
 (define (student/repl-eval repl s-expression environment syntax-table)
-  (let ((scode
-        (rewrite-scode (syntax s-expression syntax-table)
-                       (and repl
-                            (let ((port (cmdl/port repl)))
-                              (let ((operation
-                                     (port/operation
-                                      port
-                                      'CURRENT-EXPRESSION-CONTEXT)))
-                                (and operation
-                                     (operation port s-expression))))))))
-    (with-new-history (lambda () (extended-scode-eval scode environment)))))
+  (repl-scode-eval
+   repl
+   (rewrite-scode (syntax s-expression syntax-table)
+                 (and repl
+                      (let ((port (cmdl/port repl)))
+                        (let ((operation
+                               (port/operation
+                                port
+                                'CURRENT-EXPRESSION-CONTEXT)))
+                          (and operation
+                               (operation port s-expression))))))
+   environment))
 
 (define (rewrite-scode expression context)
   (let ((expression