diff options
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] |