diff options
author | dos-reis <gdr@axiomatics.org> | 2011-04-19 16:12:17 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-04-19 16:12:17 +0000 |
commit | 9430f000bbcedcd6f0edbe1c4852cb2b51c50ccc (patch) | |
tree | 97ad3fbf69b7c15f20c2dbef3f2a11860ec6fd0b /src/interp/guess.boot | |
parent | b893a938b4051bc30a9c44bdcf6000bff11969c4 (diff) | |
download | open-axiom-9430f000bbcedcd6f0edbe1c4852cb2b51c50ccc.tar.gz |
* boot/tokens.boot: charUpcase, charDowncase, stringUpcase,
singDowncase, valueEq? are new builtin functions.
* boot/ast.boot (bfMembr): Tidy.
Diffstat (limited to 'src/interp/guess.boot')
-rw-r--r-- | src/interp/guess.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/guess.boot b/src/interp/guess.boot index f5f64ca1..c3bbc571 100644 --- a/src/interp/guess.boot +++ b/src/interp/guess.boot @@ -45,7 +45,7 @@ buildWordTable u == table:= hashTable 'EQ for s in u repeat words := wordsOfString s - key := UPCASE stringChar(s,0) + key := charUpcase stringChar(s,0) HPUT(table,key,[[s,:words],:HGET(table,key)]) for key in HKEYS table repeat HPUT(table,key, @@ -64,7 +64,7 @@ removeDupOrderedAlist u == (y := rest x) and first first x = first first y => x.rest := rest y u -wordsOfString(s) == [UPCASE x for x in wordsOfStringKeepCase s] +wordsOfString(s) == [stringUpcase x for x in wordsOfStringKeepCase s] wordsOfStringKeepCase s == wordsOfString1(s,0) or [COPY s] @@ -83,7 +83,7 @@ wordsOfString1(s,j) == nil wordKeys s == - removeDuplicates [UPCASE stringChar(s,0),:fn(s,1,-1,maxIndex s,nil)] where fn(s,i,lastKeyIndex,n,acc) == + removeDuplicates [charUpcase stringChar(s,0),:fn(s,1,-1,maxIndex s,nil)] where fn(s,i,lastKeyIndex,n,acc) == i > n => acc upperCase? stringChar(s,i) => -- i = lastKeyIndex + 1 => fn(s,i + 1,i,n,[s.i,:rest acc]) |