From 03f8b9a2dd1a41baee46fd82e07545ad7c10986d Mon Sep 17 00:00:00 2001
From: Matthias Benkard <mulk@Minimulk.local>
Date: Sun, 24 Aug 2008 18:07:16 +0200
Subject: MLKInterpretedClosure: Adapt to the new interpreter.

---
 MLKInterpreter.m | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

(limited to 'MLKInterpreter.m')

diff --git a/MLKInterpreter.m b/MLKInterpreter.m
index 1921c5a..9612ad4 100644
--- a/MLKInterpreter.m
+++ b/MLKInterpreter.m
@@ -354,13 +354,9 @@
 @implementation MLKSimpleLambdaForm (MLKInterpretation)
 -(NSArray *) reallyInterpretWithEnvironment:(MLKLexicalEnvironment *)env
 {
-  id lambdaList = [_tail car];
-  id body = [_tail cdr];
   id closure = LAUTORELEASE ([[MLKInterpretedClosure alloc]
-                              initWithBodyForms:_body
-                                 lambdaListName:lambdaList
-                                        context:_context
-                                    environment:env]);
+                              initWithForm:self
+                              environment:env]);
   RETURN_VALUE (closure);  
 }
 @end
-- 
cgit v1.2.3