aboutsummaryrefslogtreecommitdiff
path: root/src/interp/i-analy.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/i-analy.boot')
-rw-r--r--src/interp/i-analy.boot1
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