diff options
author | dos-reis <gdr@axiomatics.org> | 2011-05-05 15:40:21 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-05-05 15:40:21 +0000 |
commit | 104def0e400bbf3a0daed9e490e41485a9213c9d (patch) | |
tree | 048611db2122fb44a02ed8b4e55a70642e2a95ad /src/interp/guess.boot | |
parent | fb3bb6231462cddfb70301ea1672ebc04c8e829a (diff) | |
download | open-axiom-104def0e400bbf3a0daed9e490e41485a9213c9d.tar.gz |
more cleanup
Diffstat (limited to 'src/interp/guess.boot')
-rw-r--r-- | src/interp/guess.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/guess.boot b/src/interp/guess.boot index c3bbc571..bf42c23e 100644 --- a/src/interp/guess.boot +++ b/src/interp/guess.boot @@ -46,12 +46,12 @@ buildWordTable u == for s in u repeat words := wordsOfString s key := charUpcase stringChar(s,0) - HPUT(table,key,[[s,:words],:HGET(table,key)]) + tableValue(table,key) := [[s,:words],:HGET(table,key)] for key in HKEYS table repeat - HPUT(table,key, + tableValue(table,key) := listSort(function GLESSEQP,removeDupOrderedAlist listSort(function GLESSEQP, HGET(table,key),function first), - function second)) + function second) table measureWordTable u == @@ -97,7 +97,7 @@ add2WordFunctionTable fn == --called from DEF $functionTable and null LASSOC(s := PNAME fn,HGET($functionTable,(key := UPCASE s.0))) => - HPUT($functionTable,key,[[s,:wordsOfString s],:HGET($functionTable,key)]) + tableValue($functionTable,key) := [[s,:wordsOfString s],:HGET($functionTable,key)] --======================================================================= -- Guess Function Name |