aboutsummaryrefslogtreecommitdiff
path: root/src/interp/compiler.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/compiler.boot')
-rw-r--r--src/interp/compiler.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot
index e134eb22..8534306d 100644
--- a/src/interp/compiler.boot
+++ b/src/interp/compiler.boot
@@ -1328,7 +1328,7 @@ coerceExtraHard(T is [x,m',e],m) ==
belongsTo?(m,cat,e) ==
c := get(m,"mode",e)
c isnt ["Join",:cats] => nil
- cat in cats
+ member(cat,cats)
coerceable(m,m',e) ==
m=m' => m