diff options
author | dos-reis <gdr@axiomatics.org> | 2011-04-17 16:55:39 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-04-17 16:55:39 +0000 |
commit | 1642c3f8ce94264813f4d7ac79f24f16f5fb7ded (patch) | |
tree | 9ad1840c79408767e5cac07c3c111f67928328f7 /src/interp/ht-util.boot | |
parent | f7ba5aa3dec20e2371ff9be8c7a9973a3a08cba8 (diff) | |
download | open-axiom-1642c3f8ce94264813f4d7ac79f24f16f5fb7ded.tar.gz |
* boot/tokens.boot: Translate maxIndex to MAXINDEX.
Diffstat (limited to 'src/interp/ht-util.boot')
-rw-r--r-- | src/interp/ht-util.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/ht-util.boot b/src/interp/ht-util.boot index 61781d39..3e443a60 100644 --- a/src/interp/ht-util.boot +++ b/src/interp/ht-util.boot @@ -134,7 +134,7 @@ htpLabelFilteredInputString(htPage, label) == replacePercentByDollar props.0 nil -replacePercentByDollar s == fn(s,0,MAXINDEX s) where +replacePercentByDollar s == fn(s,0,maxIndex s) where fn(s,i,n) == i > n => '"" (m := charPosition(char "%",s,i)) > n => subString(s,i) |