From a7343b3f21b008fa7822073ecb658063bd0e09a6 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Sun, 3 Aug 2008 10:43:14 +0200
Subject: Interpreter: When in expand-only mode, never change the lexical
 environment.

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

(limited to 'MLKInterpreter.m')

diff --git a/MLKInterpreter.m b/MLKInterpreter.m
index ca49b80..303b366 100644
--- a/MLKInterpreter.m
+++ b/MLKInterpreter.m
@@ -600,7 +600,7 @@ static MLKSymbol *V_INITP;
 
               result = [self eval:[MLKCons cons:PROGN with:body]
                              inLexicalContext:ctx
-                             withEnvironment:env
+                             withEnvironment:(expandOnly ? lexenv : env)
                              expandOnly:expandOnly];
 
               if (expandOnly)
@@ -721,7 +721,7 @@ static MLKSymbol *V_INITP;
                 {
                   result = [self eval:[MLKCons cons:PROGN with:body]
                                  inLexicalContext:ctx
-                                 withEnvironment:env
+                                 withEnvironment:lexenv
                                  expandOnly:YES];
 
                   RETURN_VALUE ([MLKCons
-- 
cgit v1.2.3