diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-06-04 20:41:19 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-06-04 20:41:19 +0000 |
| commit | 61fb7fee9ac84e254ca4e07428242fdc37fd4c06 (patch) | |
| tree | c59b03184b04f4892cf140e4c33535c30c5a6090 /src/interp/i-coerce.boot | |
| parent | bd67b8d8c796161376a6268c54f4d10fb0412e07 (diff) | |
| download | open-axiom-61fb7fee9ac84e254ca4e07428242fdc37fd4c06.tar.gz | |
* interp/buildom.boot (UnionEqual): Don't COERCE to FUNCTION. Use
eval. Use middle end opcodes instead of EQCAR.
(coerceUn2E): Likewise.
Diffstat (limited to 'src/interp/i-coerce.boot')
| -rw-r--r-- | src/interp/i-coerce.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/i-coerce.boot b/src/interp/i-coerce.boot index 6a1821d8..1ede612a 100644 --- a/src/interp/i-coerce.boot +++ b/src/interp/i-coerce.boot @@ -980,7 +980,7 @@ coerceUnion2Branch(object) == predicate := pred targetType := typ null targetType => keyedSystemError("S2IC0013",NIL) - predicate is ['EQCAR,.,p] => objNewWrap(rest val',targetType) + predicate is ['%ieq,['%head,.],p] => objNewWrap(rest val',targetType) objNew(objVal object,targetType) coerceBranch2Union(object,union) == @@ -991,7 +991,7 @@ coerceBranch2Union(object,union) == p := position(objMode object,doms) p = -1 => keyedSystemError("S2IC0014",[objMode object,union]) val := objVal object - predList.p is ['EQCAR,.,tag] => + predList.p is ['%ieq,['%head,.],tag] => objNewWrap([removeQuote tag,:unwrap val],union) objNew(val,union) |