diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-04-17 22:37:43 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-04-17 22:37:43 +0000 |
| commit | c552f9de83083a649b74510b522ceaebbbc0283b (patch) | |
| tree | a69dfbba85de4e384f172ebc0f47e12f7c63ebd2 /src/interp/record.boot | |
| parent | 0de5ea3df4ffff2d97202a66629e19e0579410ea (diff) | |
| download | open-axiom-c552f9de83083a649b74510b522ceaebbbc0283b.tar.gz | |
cleanup
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 5c7ad58c..c23be9ee 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 | stringChar(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 | stringChar(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 "__" => + stringChar(y,k := maxIndex y) = char "__" => u := fn r [strconc(subString(y,0,k),'" ",first u),:rest u] [y,:fn r] |