diff options
| author | Matthias Andreas Benkard <matthias@benkard.de> | 2008-08-03 10:43:14 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <matthias@benkard.de> | 2008-08-03 10:43:14 +0200 |
| commit | a7343b3f21b008fa7822073ecb658063bd0e09a6 (patch) | |
| tree | 2804cca1d144186228b8fc6cd53b14644c197b5c | |
| parent | 7cb5a0900b5e1b4c1ecf1fe602ab9ac71ca62d77 (diff) | |
Interpreter: When in expand-only mode, never change the lexical environment.
| -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 |