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/msgdb.boot | |
| parent | ca4b1b74d8e743f50f0db37f1b33265f46547f01 (diff) | |
| download | open-axiom-9c532285f28b723a3f70fc4eba19e3856ecbd3dd.tar.gz | |
SUBSTRING cleanup
Diffstat (limited to 'src/interp/msgdb.boot')
| -rw-r--r-- | src/interp/msgdb.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/msgdb.boot b/src/interp/msgdb.boot index 6d7ed990..9d650bd6 100644 --- a/src/interp/msgdb.boot +++ b/src/interp/msgdb.boot @@ -179,7 +179,7 @@ substituteSegmentedMsg(msg,args) == -- x is a special case (n > 2) and c = char "%" and x.1 = char "k" => - l := NCONC(nreverse pkey SUBSTRING(x,2,NIL),l) + l := NCONC(nreverse pkey subString(x,2),l) -- ?name gets replaced by '"Push PF10" or '"Type >b (enter)" (x.0 = char "?") and n > 1 and (v := pushOrTypeFuture(INTERN x,nil)) => @@ -581,7 +581,7 @@ brightPrint0(x,out == $OutputStream) == -- it without the backslash. STRINGLENGTH x > 1 and x.0 = char "\" and x.1 = char "%" => - sayString(SUBSTRING(x,1,NIL),out) + sayString(subString(x,1),out) x = '"%l" => sayNewLine(out) for i in 1..$MARG repeat sayString('" ",out) @@ -642,7 +642,7 @@ blankIndicator x == if IDENTP x then x := PNAME x not string? x or MAXINDEX x < 1 => nil x.0 = char '% and x.1 = char 'x => - MAXINDEX x > 1 => readInteger SUBSTRING(x,2,nil) + MAXINDEX x > 1 => readInteger subString(x,2) 1 nil |