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/record.boot | |
parent | f7ba5aa3dec20e2371ff9be8c7a9973a3a08cba8 (diff) | |
download | open-axiom-1642c3f8ce94264813f4d7ac79f24f16f5fb7ded.tar.gz |
* boot/tokens.boot: Translate maxIndex to MAXINDEX.
Diffstat (limited to 'src/interp/record.boot')
-rw-r--r-- | src/interp/record.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/record.boot b/src/interp/record.boot index 625ef097..f1561208 100644 --- a/src/interp/record.boot +++ b/src/interp/record.boot @@ -237,14 +237,14 @@ htFile2InputFile(pathname,:option) == htCommandToInputLine s == fn(s,0) where fn(s,init) == --similar to htTrimAtBackSlash except removes all \ - k := or/[i for i in init..MAXINDEX s | s.i = char '_\] => + k := or/[i for i in init..maxIndex s | s.i = char '_\] => member(s.(k + 1),[char 'f,char 'b]) => subString(s,init,k - init) strconc(subString(s,init,k - init),fn(s,k + 1)) subString(s,init) htTrimAtBackSlash s == backslash := char '_\ - k := or/[i for i in 0..MAXINDEX s | s.i = backslash + k := or/[i for i in 0..maxIndex s | s.i = backslash and member(s.(i + 1),[char 'f,char 'b])] => subString(s,0,k - 1) s @@ -267,7 +267,7 @@ recordAndPrintTest md == --called by recordAndPrint string? $currentLine => [$currentLine] fn $currentLine where fn x == x is [y,:r] => - y.(k := MAXINDEX y) = char '__ => + y.(k := maxIndex y) = char '__ => u := fn r [strconc(subString(y,0,k),'" ",first u),:rest u] [y,:fn r] |