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/msgdb.boot | |
| parent | f7ba5aa3dec20e2371ff9be8c7a9973a3a08cba8 (diff) | |
| download | open-axiom-1642c3f8ce94264813f4d7ac79f24f16f5fb7ded.tar.gz | |
* boot/tokens.boot: Translate maxIndex to MAXINDEX.
Diffstat (limited to 'src/interp/msgdb.boot')
| -rw-r--r-- | src/interp/msgdb.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/msgdb.boot b/src/interp/msgdb.boot index 4103a927..9700f7d5 100644 --- a/src/interp/msgdb.boot +++ b/src/interp/msgdb.boot @@ -99,7 +99,7 @@ string2Words l == [w while wordFrom(l,i) is [w,i]] wordFrom(l,i) == - idxmax := MAXINDEX l + idxmax := maxIndex l k := or/[j for j in i..idxmax | stringChar(l,j) ~= char " "] or return nil buf := '"" while k < idxmax and (c := stringChar(l,k)) ~= char " " repeat @@ -644,9 +644,9 @@ brightPrint0AsTeX(x, out == $OutputStream) == blankIndicator x == if IDENTP x then x := symbolName x - not string? x or MAXINDEX x < 1 => nil + not string? x or maxIndex x < 1 => nil stringChar(x,0) = char "%" and stringChar(x,1) = char "x" => - MAXINDEX x > 1 => readInteger subString(x,2) + maxIndex x > 1 => readInteger subString(x,2) 1 nil |