From a3ce495d346709238b24a381ef2ab80a8cf03c95 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Sat, 16 Aug 2008 21:55:13 +0200
Subject: MLKFunctionCallForm: Process arguments as forms.

---
 MLKForm.m | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

(limited to 'MLKForm.m')

diff --git a/MLKForm.m b/MLKForm.m
index e78a790..a5bebe5 100644
--- a/MLKForm.m
+++ b/MLKForm.m
@@ -292,7 +292,20 @@
 -(id) complete
 {
   self = [super complete];
-  LASSIGN (_argumentForms, [_tail array]);
+
+  id rest;
+  NSMutableArray *argumentForms = [NSMutableArray array];
+
+  rest = [_form cdr];
+  while (rest)
+    {
+      [argumentForms addObject:[MLKForm formWithObject:[rest car]
+                                        inContext:_context
+                                        forCompiler:_compiler]];
+      rest = [rest cdr];
+    }
+
+  LASSIGN (_argumentForms, argumentForms);
   return self;
 }
 
-- 
cgit v1.2.3