diff options
author | dos-reis <gdr@axiomatics.org> | 2009-09-26 15:31:13 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2009-09-26 15:31:13 +0000 |
commit | feb9d8d42ee30dbdad5184b654e3de461c06e7e7 (patch) | |
tree | 4cc72c9fe189ca8bd74296a36382ec916647260e /src/interp/i-funsel.boot | |
parent | 91bd7571dc0baf8d17047d553e4616dd587c0ffb (diff) | |
download | open-axiom-feb9d8d42ee30dbdad5184b654e3de461c06e7e7.tar.gz |
More cleanup
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 578f8729..70b596d2 100644 --- a/src/interp/i-funsel.boot +++ b/src/interp/i-funsel.boot @@ -609,7 +609,7 @@ mmCost0(name, sig,cond,tar,args1,args2) == -- try to favor homogeneous multiplication ---if name = "*" and 2 = #sigArgs and first sigArgs ~= first rest sigArgs then n := n + 1 +--if name = "*" and 2 = #sigArgs and first sigArgs ~= second sigArgs then n := n + 1 -- because of obscure problem in evalMm, sometimes we will have extra -- modemaps with the wrong number of arguments if we want to the one |