From b654879efa730bbb031bdb63f5f666f356b1b9a2 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 13 Aug 1993 00:08:00 +0000 Subject: [PATCH] Use new procedure REPL-SCODE-EVAL to do a standard evaluation of the SCode within HOOK/REPL-EVAL. --- v7/src/6001/nodefs.scm | 25 +++++++++++++------------ 1 file changed, 13 insertions(+), 12 deletions(-) diff --git a/v7/src/6001/nodefs.scm b/v7/src/6001/nodefs.scm index 0d5435715..4753f2ae5 100644 --- 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 -- 2.25.1