From a886a6f8ac9b0bfd65611631875a119693f6c84a Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Tue, 22 Feb 2011 20:06:03 +0000
Subject: 	* boot/tokens.boot: mmSource is a new selector for modemap
 datatype. 	* interp/wi1.boot: Likewise. 	* interp/br-data.boot: Various
 cleanups. 	* interp/c-util.boot: Likewise. 	*
 interp/compiler.boot: Likewise. 	* interp/functor.boot: Likewise. 
 * interp/g-util.boot: Likewise. 	* interp/guess.boot: Likewise. 	*
 interp/i-util.boot: Likewise. 	* interp/mark.boot: Likewise. 	*
 interp/msgdb.boot: Likewise. 	* interp/topics.boot: Likewise.

---
 src/interp/guess.boot | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/interp/guess.boot')

diff --git a/src/interp/guess.boot b/src/interp/guess.boot
index 7b59d6e4..f2b81b18 100644
--- a/src/interp/guess.boot
+++ b/src/interp/guess.boot
@@ -1,6 +1,6 @@
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
--- Copyright (C) 2007-2010, Gabriel Dos Reis.
+-- Copyright (C) 2007-2011, Gabriel Dos Reis.
 -- All rights reserved.
 --
 -- Redistribution and use in source and binary forms, with or without
@@ -113,7 +113,7 @@ findWords(word,table) ==
     $countThreshold := $countThreshold + 2
     res := findApproximateWords(word,table) 
   $lastAlist := mySort res =>
---    $lastMinimum := first LAST $lastAlist
+--    $lastMinimum := first last $lastAlist
 --    $lastWords := wordSort CDAR $lastAlist
 --    $totalWords:= $lastWords
 --    $lastAlist := rest  $lastAlist
@@ -131,7 +131,7 @@ more() == moreWords($lastWord,$lastTable)
 
 moreWords(word,table) ==
   $lastAlist =>
-     $lastMinimum := first LAST pp $lastAlist
+     $lastMinimum := first last pp $lastAlist
      numberOfLastWords := #$lastWords
      $lastWords := "append"/(ASSOCRIGHT $lastAlist)
      if #$lastWords > numberOfLastWords then 
-- 
cgit v1.2.3