From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 12 Aug 1993 09:46:09 +0000 (+0000)
Subject: Change HOOK/REPL-EVAL to accept the calling REPL as its first
X-Git-Tag: 20090517-FFI~8077
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ad82f78a98295bb1ab04204a6fc0a3fe65aece30;p=mit-scheme.git

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/debug.scm b/v7/src/edwin/debug.scm
index f9fc11168..6f937b513 100644
--- a/v7/src/edwin/debug.scm
+++ b/v7/src/edwin/debug.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: debug.scm,v 1.5 1993/08/12 08:34:58 jbank Exp $
+;;;	$Id: debug.scm,v 1.6 1993/08/12 09:46:09 cph Exp $
 ;;;
 ;;;	Copyright (c) 1992-93 Massachusetts Institute of Technology
 ;;;
@@ -1012,11 +1012,12 @@ If false show the bindings without frames."
        (define ,mark-procedure-symbol-name
 	 (lambda (ignore value)
 	   value))
-       (define (mark-stack/repl-eval s-expression environment syntax-table)
+       (define (mark-stack/repl-eval repl
+				     s-expression environment syntax-table)
 	 (,mark-procedure-symbol-name
 	  'the-turd
 	  (saved-mark-stack-hook
-	   s-expression environment syntax-table)))))
+	   repl s-expression environment syntax-table)))))
   (the-environment))
 
 (set! hook/repl-eval mark-stack/repl-eval)