summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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