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

Forgot to quote "values", and missed a use of "list".

Browse Source 
May have to eventually make my own prefixed version of values to use,
similar to what I did with send (though honu:send does a (Honu) null object
check).

svn: r301
This commit is contained in:
Stevie Strickland 2005-07-03 00:58:52 +00:00
parent 439c1ecd24
commit 11a7add8bb
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-utils.ss
View File

@ -60,9 +60,9 @@
ret)]))) ret)])))
(values (filter (lambda (n) n) names) (values (filter (lambda (n) n) names)
`(let ([arg-tuple ,(if (= (length names) 1) `(let ([arg-tuple ,(if (= (length names) 1)
`(list ,value) `(list* ,value ())
value)]) value)])
,(cons values (grab-indices names))))) ,(cons 'values (grab-indices names)))))
(provide translate-iface-name translate-class-name translate-method-name (provide translate-iface-name translate-class-name translate-method-name
translate-field-getter-name translate-field-setter-name) translate-field-getter-name translate-field-setter-name)