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

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

collects/honu/private/compiler/translate-utils.ss

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