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-funsel.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-funsel.boot')
-rw-r--r-- | src/interp/i-funsel.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-funsel.boot b/src/interp/i-funsel.boot index b46ef322..0c3acb0a 100644 --- a/src/interp/i-funsel.boot +++ b/src/interp/i-funsel.boot @@ -124,7 +124,7 @@ selectMms(op,args,$declaredMode) == identType := 'Variable for x in types1 while not $declaredMode repeat - not EQCAR(x,identType) => $declaredMode:= x + x isnt [=identType,:.] => $declaredMode:= x types2 := [altTypeOf(x,y,$declaredMode) for x in types1 for y in args] mmS:= |