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/br-saturn.boot | |
parent | f7ba5aa3dec20e2371ff9be8c7a9973a3a08cba8 (diff) | |
download | open-axiom-1642c3f8ce94264813f4d7ac79f24f16f5fb7ded.tar.gz |
* boot/tokens.boot: Translate maxIndex to MAXINDEX.
Diffstat (limited to 'src/interp/br-saturn.boot')
-rw-r--r-- | src/interp/br-saturn.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/br-saturn.boot b/src/interp/br-saturn.boot index 72babbea..5080d6e4 100644 --- a/src/interp/br-saturn.boot +++ b/src/interp/br-saturn.boot @@ -241,7 +241,7 @@ writeSaturnLines lines == writeSaturn(line) == k := 0 - n := MAXINDEX line + n := maxIndex line while --advance k if true k > n => false line.k ~= char '_\ => true @@ -345,7 +345,7 @@ writeSaturnTable line == open := charPosition(char "{",line,0) close:= charPosition(char "}",line,0) open < close => - close := findBalancingBrace(line,open + 1,MAXINDEX line,0) or error '"no balancing brace" + close := findBalancingBrace(line,open + 1,maxIndex line,0) or error '"no balancing brace" writeSaturnPrint subString(line,0,close + 1) writeSaturnTable subString(line,close + 1) $marg := $marg - 3 @@ -454,7 +454,7 @@ saturnTranText x == error nil isMenuItemStyle? s == - 15 = ('"\menuitemstyle{" < s) => subString(s,15,(MAXINDEX s) - 15) + 15 = ('"\menuitemstyle{" < s) => subString(s,15,(maxIndex s) - 15) nil getCallBack callTail == |