From 0de5ea3df4ffff2d97202a66629e19e0579410ea Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sun, 17 Apr 2011 18:27:08 +0000 Subject: cleanup --- src/interp/record.boot | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'src/interp/record.boot') diff --git a/src/interp/record.boot b/src/interp/record.boot index f1561208..5c7ad58c 100644 --- a/src/interp/record.boot +++ b/src/interp/record.boot @@ -59,7 +59,7 @@ namespace BOOT --======================================================================= -- Global Variables --======================================================================= -$backslash := char '_\ +$backslash := char "\" $testOutputLineFlag := nil -- referenced by charyTop, prnd to stash lines $testOutputLineStack := nil -- saves lines to be printed (needed to convert -- lines for use in hypertex) @@ -237,15 +237,15 @@ 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 '_\] => - member(s.(k + 1),[char 'f,char 'b]) => subString(s,init,k - init) + 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 '_\ + backslash := char "\" 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) + and member(s.(i + 1),[char "f",char "b"])] => subString(s,0,k - 1) s htMkPath(directory,name,typ) == @@ -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] -- cgit v1.2.3