summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--MLKForm.h2
-rw-r--r--MLKForm.m4
2 files changed, 4 insertions, 2 deletions
diff --git a/MLKForm.h b/MLKForm.h
index ef62d97..0924460 100644
--- a/MLKForm.h
+++ b/MLKForm.h
@@ -236,7 +236,7 @@
@interface MLKMultipleValueCallForm : MLKBodyForm
{
- id _functionForm;
+ MLKForm *_functionForm;
}
@end
diff --git a/MLKForm.m b/MLKForm.m
index 78d1ff2..4ca222e 100644
--- a/MLKForm.m
+++ b/MLKForm.m
@@ -678,7 +678,9 @@
-(id) complete
{
self = [super complete];
- LASSIGN (_functionForm, [_tail car]);
+ LASSIGN (_functionForm, [MLKForm formWithObject:[_tail car]
+ inContext:_context
+ forCompiler:_compiler]);
[self processBody:[_tail cdr]];
return self;
}