diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-05-09 21:57:33 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-05-09 21:57:33 +0000 |
| commit | f42883e3da3524177b4a8c6f42c8e7b1646a6265 (patch) | |
| tree | 7802320c3cab01a11aa32fd87bf8ea00f265fd80 /src/interp/guess.boot | |
| parent | 37bce222d153e4b7b0c086b9c717435f4cdd2c77 (diff) | |
| download | open-axiom-f42883e3da3524177b4a8c6f42c8e7b1646a6265.tar.gz | |
More cleanups
Diffstat (limited to 'src/interp/guess.boot')
| -rw-r--r-- | src/interp/guess.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/guess.boot b/src/interp/guess.boot index 43113eea..21014170 100644 --- a/src/interp/guess.boot +++ b/src/interp/guess.boot @@ -83,7 +83,7 @@ wordsOfString1(s,j) == nil wordKeys s == - REMDUP [UPCASE s.0,:fn(s,1,-1,MAXINDEX s,nil)] where fn(s,i,lastKeyIndex,n,acc) == + removeDuplicates [UPCASE s.0,:fn(s,1,-1,MAXINDEX s,nil)] where fn(s,i,lastKeyIndex,n,acc) == i > n => acc UPPER_-CASE_-P s.i => -- i = lastKeyIndex + 1 => fn(s,i + 1,i,n,[s.i,:rest acc]) @@ -125,7 +125,7 @@ findWords(word,table) == $totalWords $lastWords := nil -wordSort u == REMDUP listSort(function GLESSEQP,u) +wordSort u == removeDuplicates listSort(function GLESSEQP,u) more() == moreWords($lastWord,$lastTable) |