aboutsummaryrefslogtreecommitdiff
path: root/src/interp/i-eval.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/i-eval.boot')
-rw-r--r--src/interp/i-eval.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-eval.boot b/src/interp/i-eval.boot
index ed5da634..cf3028f3 100644
--- a/src/interp/i-eval.boot
+++ b/src/interp/i-eval.boot
@@ -290,7 +290,7 @@ getArgValue1(a,t) ==
-- creates a value for a, coercing to t
t' := getValue(a) =>
(m := getMode a) and (m is ['Mapping,:ml]) and (m = t) and
- objValUnwrap(t') is ['MAP,:.] =>
+ objValUnwrap(t') is ["%Map",:.] =>
getMappingArgValue(a,t,m)
t' := coerceOrRetract(t',t)
t' and getValueNormalForm t'