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 | |
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')
-rw-r--r-- | src/interp/i-analy.boot | 1 | ||||
-rw-r--r-- | src/interp/i-map.boot | 2 |
2 files changed, 2 insertions, 1 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 diff --git a/src/interp/i-map.boot b/src/interp/i-map.boot index be2c923e..241ba8e0 100644 --- a/src/interp/i-map.boot +++ b/src/interp/i-map.boot @@ -1014,7 +1014,7 @@ findLocalVars1(op,form) == (atom a) or (a is ['_:,a,.]) => mkLocalVar(op,a) findLocalVars1(op,b) - findLocalVars(op,b) + findLocalVars1(op,b) for x in a repeat findLocalVars1(op,x) form is ['_:,a,.] => mkLocalVar(op,a) |