Merge branch 'master' of http://matthias.benkard.de/code/mulklisp

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;
 }