suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

PR 7541

Browse Source 
svn: r636
This commit is contained in:
Stevie Strickland 2005-08-23 07:17:48 +00:00
parent f9f5f29dd4
commit 47a3f0176b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/honu/private/compiler/translate-class-utils.ss
View File

@ -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))