From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Mon, 23 Nov 1992 21:15:33 +0000 (+0000)
Subject: Fix bug in last edit -- DEFINE-VARIABLE-LOCAL-VALUE! is not a macro.
X-Git-Tag: 20090517-FFI~8715
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=795c29f22efeda53817ab2cbe6982ae74e19733d;p=mit-scheme.git

Fix bug in last edit -- DEFINE-VARIABLE-LOCAL-VALUE! is not a macro.
---

diff --git a/v7/src/edwin/artdebug.scm b/v7/src/edwin/artdebug.scm
index 43b73a903..3229e3584 100644
--- a/v7/src/edwin/artdebug.scm
+++ b/v7/src/edwin/artdebug.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: artdebug.scm,v 1.20 1992/11/22 17:04:18 gjr Exp $
+;;;	$Id: artdebug.scm,v 1.21 1992/11/23 21:15:33 gjr Exp $
 ;;;
 ;;;	Copyright (c) 1989-1992 Massachusetts Institute of Technology
 ;;;
@@ -389,11 +389,14 @@ Miscellany
 
 Use \\[kill-buffer] to quit the debugger."
   (lambda (buffer)
-    (define-variable-local-value! buffer comint-input-ring
+    (define-variable-local-value! buffer
+      (ref-variable-object comint-input-ring)
       (make-ring (ref-variable comint-input-ring-size)))
-    (define-variable-local-value! buffer evaluation-input-recorder
+    (define-variable-local-value! buffer
+      (ref-variable-object evaluation-input-recorder)
       continuation-browser-input-recorder)
-    (define-variable-local-value! buffer evaluation-output-receiver
+    (define-variable-local-value! buffer
+      (ref-variable-object evaluation-output-receiver)
       continuation-browser-output-receiver)))
 
 (define (continuation-browser-input-recorder region)