objc bug fix

svn: r12893
2008-12-19 00:24:12 +00:00 · 2008-12-19 00:24:12 +00:00 · 7532556b31
commit 7532556b31
parent af45c8ca57
1 changed files with 2 additions and 2 deletions
--- a/collects/ffi/objc.ss
+++ b/collects/ffi/objc.ss
@ -397,8 +397,8 @@
     (cond
      [(list? l)
       (apply string-append 
-              (for ([l (in-list l)]
-                    [i (in-naturals)])
+              (for/list ([l (in-list l)]
+                         [i (in-naturals)])
                (format "f~a=~a" i (layout->string l))))]
      [(eq? l (ctype->layout _int)) "i"]
      [(eq? l (ctype->layout _uint)) "I"]