From ad82f78a98295bb1ab04204a6fc0a3fe65aece30 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 12 Aug 1993 09:46:09 +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/debug.scm | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
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)
--
2.25.1