From 8c974e69d936d8fe5349ea4524a7a069310c0a10 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Sun, 22 Nov 1992 17:04:18 +0000
Subject: [PATCH] Update to match new define-major-mode

---
 v7/src/edwin/artdebug.scm | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

diff --git a/v7/src/edwin/artdebug.scm b/v7/src/edwin/artdebug.scm
index 20987504f..43b73a903 100644
--- a/v7/src/edwin/artdebug.scm
+++ b/v7/src/edwin/artdebug.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/artdebug.scm,v 1.19 1992/08/27 06:39:46 jinx Exp $
+;;;	$Id: artdebug.scm,v 1.20 1992/11/22 17:04:18 gjr Exp $
 ;;;
-;;;	Copyright (c) 1989-92 Massachusetts Institute of Technology
+;;;	Copyright (c) 1989-1992 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -388,12 +388,13 @@ Miscellany
     subproblem with its value.
 
 Use \\[kill-buffer] to quit the debugger."
-  (local-set-variable! comint-input-ring
-		       (make-ring (ref-variable comint-input-ring-size)))
-  (local-set-variable! evaluation-input-recorder
-		       continuation-browser-input-recorder)
-  (local-set-variable! evaluation-output-receiver
-		       continuation-browser-output-receiver))
+  (lambda (buffer)
+    (define-variable-local-value! buffer comint-input-ring
+      (make-ring (ref-variable comint-input-ring-size)))
+    (define-variable-local-value! buffer evaluation-input-recorder
+      continuation-browser-input-recorder)
+    (define-variable-local-value! buffer evaluation-output-receiver
+      continuation-browser-output-receiver)))
 
 (define (continuation-browser-input-recorder region)
   (ring-push! (ref-variable comint-input-ring) (region->string region)))
-- 
2.25.1