Change HOOK/REPL-EVAL to accept the calling REPL as its first

argument, in addition to the other arguments.

diff --git a/v7/src/edwin/evlcom.scm b/v7/src/edwin/evlcom.scm
index 97cc806a891d3ba898719154f18e9c2be9fe7845..59945be5322099eee92617a0b422564b981be6f6 100644 (file)
--- a/v7/src/edwin/evlcom.scm
+++ b/v7/src/edwin/evlcom.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Id: evlcom.scm,v 1.42 1993/08/02 23:54:26 cph Exp $
+;;;    $Id: evlcom.scm,v 1.43 1993/08/12 08:35:18 cph Exp $
 ;;;
 ;;;    Copyright (c) 1986, 1989-93 Massachusetts Institute of Technology
 ;;;
@@ -457,7 +457,7 @@ Set by Scheme evaluation code to update the mode line."
     (bind-condition-handler (list condition-type:error)
        evaluation-error-handler
       (lambda ()
-       (hook/repl-eval expression environment syntax-table)))))
+       (hook/repl-eval #f expression environment syntax-table)))))
 \f
 (define (evaluation-error-handler condition)
   (default-report-error condition "evaluation")