From 7532556b31dd1b7a908975b6f7db8adb2e27c310 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 19 Dec 2008 00:24:12 +0000
Subject: [PATCH] objc bug fix

svn: r12893
---
 collects/ffi/objc.ss | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/ffi/objc.ss b/collects/ffi/objc.ss
index c84c3462b7..83dc8bacf3 100644
--- 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"]