From 20a8ad75b7e37bb087342e80e3f1c18eb74e4af8 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Fri, 9 May 2008 17:39:54 +0000 Subject: * interp/as.boot: Remove Old Boot semantics. * interp/br-con.boot: Likewise. * interp/br-data.boot: Likewise. * interp/br-op1.boot: Likewise. * interp/br-op2.boot: Likewise. * interp/br-saturn.boot: Likewise. * interp/compiler.boot: Likewise. * interp/define.boot: Likewise. * interp/fortcall.boot: Likewise. * interp/functor.boot: Likewise. * interp/htsetvar.boot: Likewise. * interp/newfort.boot: Likewise. * interp/nruncomp.boot: Likewise. * interp/nrunopt.boot: Likewise. --- src/interp/compiler.boot | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/interp/compiler.boot') 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 -- cgit v1.2.3