diff options
author | dos-reis <gdr@axiomatics.org> | 2009-01-03 01:35:30 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2009-01-03 01:35:30 +0000 |
commit | 844be40b5b876fffd816f285f87711cca6ef3121 (patch) | |
tree | 311bee29b8d4edbdd5006ebabf712f9f3bb97c73 /src/interp/i-coerce.boot | |
parent | c13363c1cf68242db7fac7970baa80fcd8911972 (diff) | |
download | open-axiom-844be40b5b876fffd816f285f87711cca6ef3121.tar.gz |
* interp/buildom.boot (UnionEqual): Don't call orderUnionEntries.
(coerceUn2E): Likewise.
(mkUnionFunList): Likewise.
* interp/i-coerce.boot (coerceUnion2Branch): Likewise.
(coerceBranch2Union): Likewise.
($newCompilerUnionFlag): Remove.
(orderUnionEntries): Likewise.
(mkPredList): Remove dead code.
Diffstat (limited to 'src/interp/i-coerce.boot')
-rw-r--r-- | src/interp/i-coerce.boot | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/src/interp/i-coerce.boot b/src/interp/i-coerce.boot index 4a145952..1ca27f51 100644 --- a/src/interp/i-coerce.boot +++ b/src/interp/i-coerce.boot @@ -1,6 +1,6 @@ -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd. -- All rights reserved. --- Copyright (C) 2007-2008, Gabriel Dos Reis. +-- Copyright (C) 2007-2009, Gabriel Dos Reis. -- All rights reserved. -- -- Redistribution and use in source and binary forms, with or without @@ -994,8 +994,7 @@ thisUnionBranch?(pred,val) == eval ["LET",[["#1",MKQ val]],pred] coerceUnion2Branch(object) == - [.,:unionDoms] := objMode object - doms := orderUnionEntries unionDoms + [.,:doms] := objMode object predList:= mkPredList doms doms := stripUnionTags doms val' := objValUnwrap object @@ -1010,9 +1009,8 @@ coerceUnion2Branch(object) == objNew(objVal object,targetType) coerceBranch2Union(object,union) == - -- assumes type is a member of unionDoms - unionDoms := CDR union - doms := orderUnionEntries unionDoms + -- assumes type is a member of doms + doms := CDR union predList:= mkPredList doms doms := stripUnionTags doms p := position(objMode object,doms) |