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/posit.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/posit.boot')
| -rw-r--r-- | src/interp/posit.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/posit.boot b/src/interp/posit.boot index fe155c7c..30fbd5f1 100644 --- a/src/interp/posit.boot +++ b/src/interp/posit.boot @@ -138,7 +138,7 @@ pfAbSynOp form == pfAbSynOp?(form, op) == hd := first form - EQ(hd, op) or EQCAR(hd, op) + EQ(hd, op) or hd is [=op,:.] pfLeaf? form == pfAbSynOp form in |