diff options
Diffstat (limited to 'src/interp/wi1.boot')
| -rw-r--r-- | src/interp/wi1.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/wi1.boot b/src/interp/wi1.boot index 508213c5..943515eb 100644 --- a/src/interp/wi1.boot +++ b/src/interp/wi1.boot @@ -882,7 +882,7 @@ coerceHard(T,m) == coerceExtraHard(T is [x,m',e],m) == T':= autoCoerceByModemap(T,m) => T' - isUnionMode(m',e) is ["Union",:l] and (t:= hasType(x,e)) and + unionLike?(m',e) is ['UnionCategory,:l] and (t:= hasType(x,e)) and member(t,l) and (T':= autoCoerceByModemap(T,t)) and (T'':= coerce(T',m)) => T'' m' is ['Record,:.] and m = $Expression => |