diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-04-17 22:37:43 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-04-17 22:37:43 +0000 |
| commit | c552f9de83083a649b74510b522ceaebbbc0283b (patch) | |
| tree | a69dfbba85de4e384f172ebc0f47e12f7c63ebd2 /src/interp/word.boot | |
| parent | 0de5ea3df4ffff2d97202a66629e19e0579410ea (diff) | |
| download | open-axiom-c552f9de83083a649b74510b522ceaebbbc0283b.tar.gz | |
cleanup
Diffstat (limited to 'src/interp/word.boot')
| -rw-r--r-- | src/interp/word.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/word.boot b/src/interp/word.boot index ab749561..f2bbed07 100644 --- a/src/interp/word.boot +++ b/src/interp/word.boot @@ -108,7 +108,7 @@ wordsOfString(s) == [UPCASE x for x in wordsOfStringKeepCase s] wordsOfStringKeepCase s == wordsOfString1(s,0) or [COPY s] wordsOfString1(s,j) == - k := or/[i for i in j..(maxIndex(s)-1) | isBreakCharacter s.i] => + k := or/[i for i in j..(maxIndex(s)-1) | isBreakCharacter stringChar(s,i)] => tailWords:= isBreakCharacter s.(k+1) => n:= or/[i for i in (k+2)..(maxIndex(s)-1)|not isBreakCharacter s.i] @@ -196,7 +196,7 @@ bootSearch word == list := hasWildCard? key => pattern := patternTran key -- converts * to & - pattern.0 ~= '_& => + pattern.0 ~= char "&" => [x for [x,:.] in HGET($functionTable,UPCASE pattern.0)| match?(pattern,COPY x)] "append"/[[x for [x,:.] in HGET($functionTable,k)| match?(pattern,COPY x)] |