diff options
author | dos-reis <gdr@axiomatics.org> | 2009-09-26 13:49:18 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2009-09-26 13:49:18 +0000 |
commit | 91bd7571dc0baf8d17047d553e4616dd587c0ffb (patch) | |
tree | 2e2a2eb23ff2cb76b6eb3ae763a480ac1f0078ad /src/interp/guess.boot | |
parent | 868f1d56a5bcd7d712855e98085e0e15d32a3264 (diff) | |
download | open-axiom-91bd7571dc0baf8d17047d553e4616dd587c0ffb.tar.gz |
* interp/: More cleanup.
Diffstat (limited to 'src/interp/guess.boot')
-rw-r--r-- | src/interp/guess.boot | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/interp/guess.boot b/src/interp/guess.boot index 531df6b5..87d2002e 100644 --- a/src/interp/guess.boot +++ b/src/interp/guess.boot @@ -50,7 +50,7 @@ buildWordTable u == for key in HKEYS table repeat HPUT(table,key, listSort(function GLESSEQP,removeDupOrderedAlist - listSort(function GLESSEQP, HGET(table,key),function CAR), + listSort(function GLESSEQP, HGET(table,key),function first), function second)) table @@ -113,15 +113,15 @@ findWords(word,table) == $countThreshold := $countThreshold + 2 res := findApproximateWords(word,table) $lastAlist := mySort res => --- $lastMinimum := CAR LAST $lastAlist +-- $lastMinimum := first LAST $lastAlist -- $lastWords := wordSort CDAR $lastAlist -- $totalWords:= $lastWords --- $lastAlist := CDR $lastAlist +-- $lastAlist := rest $lastAlist -- $totalWords $lastMinimum := CAAR $lastAlist $lastWords := wordSort CDAR $lastAlist $totalWords:= $lastWords - $lastAlist := CDR $lastAlist + $lastAlist := rest $lastAlist $totalWords $lastWords := nil @@ -131,7 +131,7 @@ more() == moreWords($lastWord,$lastTable) moreWords(word,table) == $lastAlist => - $lastMinimum := CAR LAST pp $lastAlist + $lastMinimum := first LAST pp $lastAlist numberOfLastWords := #$lastWords $lastWords := "append"/(ASSOCRIGHT $lastAlist) if #$lastWords > numberOfLastWords then @@ -182,7 +182,7 @@ findApproximateWords(word,table) == consAlist(x,y,alist) == u := ASSOC(x,alist) => - RPLACD(u,[y,:CDR u]) + RPLACD(u,[y,:rest u]) alist [[x,y],:alist] @@ -266,7 +266,7 @@ findApproxSimple(words,wordList,threshold) == rotateWordList u == v := u - p := CAR v + p := first v while QCDR v repeat RPLACA(v,second v) v := QCDR v |