aboutsummaryrefslogtreecommitdiff
path: root/src/interp/i-intern.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/i-intern.boot')
-rw-r--r--src/interp/i-intern.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-intern.boot b/src/interp/i-intern.boot
index 11ff1a4a..20a066fd 100644
--- a/src/interp/i-intern.boot
+++ b/src/interp/i-intern.boot
@@ -399,7 +399,7 @@ getValueFromSpecificEnvironment(id,mode,e) ==
systemErrorHere '"getValueFromSpecificEnvironment"
v := objValUnwrap u
mode isnt ['Mapping,:mapSig] => v
- v isnt ['MAP,:.] => v
+ v isnt ["%Map",:.] => v
v' := coerceInt(u,mode)
null v' => throwKeyedMsg("S2IC0002",[objMode u,mode])
objValUnwrap v'