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

Forgot to give map its list argument.

Browse Source 
svn: r337
This commit is contained in:
Stevie Strickland 2005-07-04 22:40:31 +00:00
parent 03aba477f7
commit d3654cfdec
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/honu/private/compiler/translate.ss
View File

@ -105,7 +105,7 @@
(at stx `(define ,(translate-class-name name)
(class* ,(translate-class-name base) ,(map translate-iface-name impls)
(honu:type ,(translate-type-for-syntax selftype))
(honu:type ,@(map (lambda (w) (translate-type-for-syntax (honu:formal-type w)))))
(honu:type ,@(map (lambda (w) (translate-type-for-syntax (honu:formal-type w))) withs))
(inspect #f)
,(translate-inits inits)
,@(map translate-member members-before)
@ -171,4 +171,4 @@
;; as before, the 3 is for " = "
(renderer ,(translate-static-field-getter name)
(+ indent ,(+ indent-delta (string-length (symbol->string (syntax-e name))) 3)))))
)
)