diff options
author | dos-reis <gdr@axiomatics.org> | 2008-10-30 02:41:06 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-10-30 02:41:06 +0000 |
commit | e83556dbb044ac9237d7964e7ae1e85079cdcedd (patch) | |
tree | 5d8384c01ff08e8db7989b8bf96c59d1d34c2b79 /src/interp/i-analy.boot | |
parent | e65cdbacb778bc7a3b1ebfb0441091b1032a1387 (diff) | |
download | open-axiom-e83556dbb044ac9237d7964e7ae1e85079cdcedd.tar.gz |
* interp/i-analy.boot (bottomUpDefaultCompile): Declared local
variables really are locals.
* interp/i-map.boot (findLocalVars1): Fix typo.
Diffstat (limited to 'src/interp/i-analy.boot')
-rw-r--r-- | src/interp/i-analy.boot | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/interp/i-analy.boot b/src/interp/i-analy.boot index 39b4bf2e..84518d51 100644 --- a/src/interp/i-analy.boot +++ b/src/interp/i-analy.boot @@ -432,6 +432,7 @@ bottomUpDefaultCompile(t,id,defaultMode,target,isSub) == tval := getValue t expr:= id in $localVars => id + get(id,"mode",$env) => id -- declared local variable tmode or tval => envMode := tmode or objMode tval envMode is ['Variable, :.] => objVal tval |