From 6d76e9b1df689d57cb698546036b4890d5df86b6 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 10 Feb 2002 20:09:44 +0000
Subject: [PATCH] .

original commit: fa0e734e4d8c61677eb5f2e41a2e32738d875b46
---
 collects/mzlib/class.ss | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/collects/mzlib/class.ss b/collects/mzlib/class.ss
index b75bf0f..ac99417 100644
--- a/collects/mzlib/class.ss
+++ b/collects/mzlib/class.ss
@@ -974,7 +974,7 @@
        (mk 'define/public (syntax public))
        (mk 'define/override (syntax override)))))
 
-  (define-syntax (declare-local-member-name stx)
+  (define-syntax (define-local-member-name stx)
     (syntax-case stx ()
       [(_ id ...)
        (let ([ids (syntax->list (syntax (id ...)))])
@@ -1411,13 +1411,14 @@
 				   "duplicate name"
 				   stx
 				   dup)))
-	   (with-syntax ([name (datum->syntax-object #f name #f)])
+	   (with-syntax ([name (datum->syntax-object #f name #f)]
+			 [(var ...) (map localize vars)])
 	     (syntax/loc
 	      stx
 	      (compose-interface
 	       'name
 	       (list interface-expr ...)
-	       '(var ...)))))])))
+	       `(var ...)))))])))
 
   (define-struct interface (name supers public-ids class) insp)
 
@@ -2128,7 +2129,7 @@
 	   send send/apply send* class-field-accessor class-field-mutator with-method
 	   private* public* override*
 	   define/private define/public define/override
-	   declare-local-member-name
+	   define-local-member-name
 	   (rename generic/form generic) (rename make-generic/proc make-generic) send-generic
 	   is-a? subclass? implementation? interface-extension?
 	   object-interface