summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <matthias@benkard.de>2008-08-16 21:55:13 +0200
committerMatthias Andreas Benkard <matthias@benkard.de>2008-08-16 22:01:54 +0200
commita3ce495d346709238b24a381ef2ab80a8cf03c95 (patch)
tree1e6af4e2c4eb334f9a50f2848a7491e6703622ea
parent66168b73736dff38b6db98d08d8a1fbe255012a8 (diff)
MLKFunctionCallForm: Process arguments as forms.
-rw-r--r--MLKForm.m15
1 files changed, 14 insertions, 1 deletions
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;
}