summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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;
}