diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-05-09 17:39:54 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-05-09 17:39:54 +0000 |
| commit | 20a8ad75b7e37bb087342e80e3f1c18eb74e4af8 (patch) | |
| tree | 2796d582814e528527310f88b9cc9301cee42ebb /src/interp/compiler.boot | |
| parent | 2e3759ab9fa0e0962408ddf39f88f892f0fed1de (diff) | |
| download | open-axiom-20a8ad75b7e37bb087342e80e3f1c18eb74e4af8.tar.gz | |
* 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.
Diffstat (limited to 'src/interp/compiler.boot')
| -rw-r--r-- | src/interp/compiler.boot | 2 |
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 |