summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <matthias@benkard.de>2008-08-03 10:43:14 +0200
committerMatthias Andreas Benkard <matthias@benkard.de>2008-08-03 10:43:14 +0200
commita7343b3f21b008fa7822073ecb658063bd0e09a6 (patch)
tree2804cca1d144186228b8fc6cd53b14644c197b5c
parent7cb5a0900b5e1b4c1ecf1fe602ab9ac71ca62d77 (diff)
Interpreter: When in expand-only mode, never change the lexical environment.
-rw-r--r--MLKInterpreter.m4
1 files changed, 2 insertions, 2 deletions
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