diff options
author | dos-reis <gdr@axiomatics.org> | 2010-12-29 03:20:55 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-12-29 03:20:55 +0000 |
commit | 9c532285f28b723a3f70fc4eba19e3856ecbd3dd (patch) | |
tree | 8cab2c9b8ac48fd5b39bfc7a1fd192ede88c4117 /src/interp/record.boot | |
parent | ca4b1b74d8e743f50f0db37f1b33265f46547f01 (diff) | |
download | open-axiom-9c532285f28b723a3f70fc4eba19e3856ecbd3dd.tar.gz |
SUBSTRING cleanup
Diffstat (limited to 'src/interp/record.boot')
-rw-r--r-- | src/interp/record.boot | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/interp/record.boot b/src/interp/record.boot index 7313b81c..c67d1922 100644 --- a/src/interp/record.boot +++ b/src/interp/record.boot @@ -238,14 +238,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 '_\] => - 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,nil) + 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 - 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) == @@ -269,7 +269,7 @@ recordAndPrintTest md == --called by recordAndPrint x is [y,:r] => y.(k := MAXINDEX y) = char '__ => u := fn r - [strconc(SUBSTRING(y,0,k),'" ",first u),:rest u] + [strconc(subString(y,0,k),'" ",first u),:rest u] [y,:fn r] x output := nreverse $mkTestOutputStack -- set by maPrin |