From: Mark Friedman <edu/mit/csail/zurich/markf>
Date: Thu, 5 Dec 1991 16:18:51 +0000 (+0000)
Subject: Made consistent with new evaluation commands.
X-Git-Tag: 20090517-FFI~10038
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1fd95d310213c2312fe22e9a56272af80aa2f871;p=mit-scheme.git

Made consistent with new evaluation commands.
---

diff --git a/v7/src/edwin/artdebug.scm b/v7/src/edwin/artdebug.scm
index 27cfcf4ce..3e6575d74 100644
--- a/v7/src/edwin/artdebug.scm
+++ b/v7/src/edwin/artdebug.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/artdebug.scm,v 1.14 1991/11/26 08:02:40 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/artdebug.scm,v 1.15 1991/12/05 16:18:51 markf Exp $
 ;;;
 ;;;	Copyright (c) 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -392,7 +392,7 @@ Use \\[kill-buffer] to quit the debugger."
   (local-set-variable! transcript-buffer-name (current-buffer))
   (local-set-variable! comint-input-ring
 		       (make-ring (ref-variable comint-input-ring-size)))
-  (local-set-variable! transcript-input-recorder
+  (local-set-variable! evaluation-input-recorder
 		       continuation-browser-input-recorder)
   (local-set-variable! transcript-output-wrapper
 		       continuation-browser-output-wrapper))