diff options
| -rw-r--r-- | MLKInterpreter.m | 4 |
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 |