diff options
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 |