From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 13 Feb 2002 01:18:41 +0000 (+0000)
Subject: Fix bug: WITH-INSTANCE-VARIABLES should have used
X-Git-Tag: 20090517-FFI~2245
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2d1abf8f6cf5440f9becbf40f02071c10e5584af;p=mit-scheme.git

Fix bug: WITH-INSTANCE-VARIABLES should have used
MAKE-UNMAPPED-MACRO-REFERENCE-TRAP rather than
MAKE-MACRO-REFERENCE-TRAP.
---

diff --git a/v7/src/edwin/clsmac.scm b/v7/src/edwin/clsmac.scm
index 24df02fb9..da7756b87 100644
--- a/v7/src/edwin/clsmac.scm
+++ b/v7/src/edwin/clsmac.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: clsmac.scm,v 1.9 2002/02/09 05:37:59 cph Exp $
+;;; $Id: clsmac.scm,v 1.10 2002/02/13 01:18:41 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989, 1999, 2001, 2002 Massachusetts Institute of Technology
 ;;;
@@ -80,7 +80,7 @@
 	      (ill-formed-syntax form)))))))
 
 (define with-instance-variables
-  (make-macro-reference-trap
+  (make-unmapped-macro-reference-trap
    (make-compiler-item
     (lambda (form environment history)
       (if (syntax-match? '(IDENTIFIER EXPRESSION (* IDENTIFIER) + EXPRESSION)