diff options
author | dos-reis <gdr@axiomatics.org> | 2010-12-19 18:21:55 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-12-19 18:21:55 +0000 |
commit | a3493316634d0bf180116c59744a0aabe9afb311 (patch) | |
tree | efd9990d53acd3b63af474ac89ff6b37116ab305 /src/interp/i-funsel.boot | |
parent | 0baf7a71d80fc15fdab5caa551b7e00800dccbef (diff) | |
download | open-axiom-a3493316634d0bf180116c59744a0aabe9afb311.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 166ab44b..bdb13805 100644 --- a/src/interp/i-funsel.boot +++ b/src/interp/i-funsel.boot @@ -755,7 +755,7 @@ selectMostGeneralMm mmList == while mml repeat [mm,:mml] := mml sz := #first mm - if (met := ABS(sz - 3)) < min then + if (met := abs(sz - 3)) < min then min := met fsz := sz mmList := [mm for mm in mmList | (#first mm) = fsz] |