From 881cc951c5b53aa2d120b1545d0f338d5b180372 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Sun, 24 Aug 2008 20:37:23 +0200
Subject: MLKMultipleValueCallForm: Make _functionForm an MLKForm instead of an
 id.

---
 MLKForm.h | 2 +-
 MLKForm.m | 4 +++-
 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;
 }
-- 
cgit v1.2.3