diff options
author | Matthias Benkard <mulk@Minimulk.local> | 2008-08-24 18:07:16 +0200 |
---|---|---|
committer | Matthias Benkard <mulk@Minimulk.local> | 2008-08-24 18:07:16 +0200 |
commit | 03f8b9a2dd1a41baee46fd82e07545ad7c10986d (patch) | |
tree | 379451ffec91546a874bdfe4f1a4e934eeadd48b /MLKInterpreter.m | |
parent | 926dce9dc2c7afa009cacab46fb6f1b704c80ca7 (diff) |
MLKInterpretedClosure: Adapt to the new interpreter.
Diffstat (limited to 'MLKInterpreter.m')
-rw-r--r-- | MLKInterpreter.m | 8 |
1 files changed, 2 insertions, 6 deletions
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 |