diff options
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) |