From b85620092c75e11d9cade060338865f4bca085bc Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 12 Aug 1993 08:35:18 +0000
Subject: [PATCH] Change HOOK/REPL-EVAL to accept the calling REPL as its first
 argument, in addition to the other arguments.

---
 v7/src/edwin/evlcom.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/v7/src/edwin/evlcom.scm b/v7/src/edwin/evlcom.scm
index 97cc806a8..59945be53 100644
--- 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)))))
 
 (define (evaluation-error-handler condition)
   (default-report-error condition "evaluation")
-- 
2.25.1