diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-04-19 18:14:50 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-04-19 18:14:50 +0000 |
| commit | faaf19e1912ba48e9fbd195d2b90c4e205c87538 (patch) | |
| tree | 18a81dba1f12285383ba73beaeb8febb6606ea37 /src/interp/i-special.boot | |
| parent | 9430f000bbcedcd6f0edbe1c4852cb2b51c50ccc (diff) | |
| download | open-axiom-faaf19e1912ba48e9fbd195d2b90c4e205c87538.tar.gz | |
cleanup
Diffstat (limited to 'src/interp/i-special.boot')
| -rw-r--r-- | src/interp/i-special.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/i-special.boot b/src/interp/i-special.boot index 8e029a45..5a7a4607 100644 --- a/src/interp/i-special.boot +++ b/src/interp/i-special.boot @@ -808,10 +808,10 @@ checkForFreeVariables(v,locals) == null v => v symbol? v => v="$$$" => v -- Placeholder for mini-vector - MEMQ(v,$boundVariables) => v + symbolMember?(v,$boundVariables) => v p := POSITION(v,$freeVariables) => ["getSimpleArrayEntry","envArg",positionInVec(p,#($freeVariables))] - (locals = "ALL") or MEMQ(v,locals) => + (locals = "ALL") or symbolMember?(v,locals) => $freeVariables := [v,:$freeVariables] ["getSimpleArrayEntry","envArg",positionInVec(0,#($freeVariables))] v |