From 11a7add8bbcb17d90a0e78b414e484d8dc5542b4 Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Sun, 3 Jul 2005 00:58:52 +0000 Subject: [PATCH] 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 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/honu/private/compiler/translate-utils.ss b/collects/honu/private/compiler/translate-utils.ss index a31526bcc9..327963bc86 100644 --- a/collects/honu/private/compiler/translate-utils.ss +++ b/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)