From 47a3f0176b346812a9ab309b2ae3e469e9e954b3 Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Tue, 23 Aug 2005 07:17:48 +0000 Subject: [PATCH] PR 7541 svn: r636 --- collects/honu/private/compiler/translate-class-utils.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/honu/private/compiler/translate-class-utils.ss b/collects/honu/private/compiler/translate-class-utils.ss index cdaa3f66c5..93ade12bd9 100644 --- a/collects/honu/private/compiler/translate-class-utils.ss +++ b/collects/honu/private/compiler/translate-class-utils.ss @@ -172,7 +172,7 @@ (if value (at stx`(begin (init ([,(mangle-init-name name) ,(at-ctxt name)] ,(translate-expression value))) - (define ,(at-ctxt name) ,(mangle-init-name)))) + (define ,(at-ctxt name) ,(mangle-init-name name)))) (at stx `(begin (init ([,(mangle-init-name name) ,(at-ctxt name)])) (define ,(at-ctxt name) ,(mangle-init-name name)))))] [(struct honu:field (stx name type value))