diff options
author | dos-reis <gdr@axiomatics.org> | 2010-05-09 18:37:10 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-05-09 18:37:10 +0000 |
commit | 4c2ef607671da29d8ee0aefd393227af72936b44 (patch) | |
tree | 0c515e0003e4c164390e66d3aa39bfb342520601 /src/interp/g-util.boot | |
parent | dc2b7bf37f89919116cc3f599ca7744803013d1e (diff) | |
download | open-axiom-4c2ef607671da29d8ee0aefd393227af72936b44.tar.gz |
Cleanup STRCONC uses
Diffstat (limited to 'src/interp/g-util.boot')
-rw-r--r-- | src/interp/g-util.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/g-util.boot b/src/interp/g-util.boot index 4495805f..89254289 100644 --- a/src/interp/g-util.boot +++ b/src/interp/g-util.boot @@ -421,9 +421,9 @@ centerString(text,width,fillchar) == f := DIVIDE(width - wid,2) fill1 := "" for i in 1..(f.0) repeat - fill1 := STRCONC(fillchar,fill1) + fill1 := strconc(fillchar,fill1) fill2:= fill1 - if f.1 ~= 0 then fill1 := STRCONC(fillchar,fill1) + if f.1 ~= 0 then fill1 := strconc(fillchar,fill1) [fill1,text,fill2] stringPrefix?(pref,str) == @@ -541,7 +541,7 @@ isLetter c == update() == runCommand - STRCONC(textEditor(), '" ",STRINGIMAGE _/VERSION,'" ",STRINGIMAGE _/WSNAME,'" A") + strconc(textEditor(), '" ",STRINGIMAGE _/VERSION,'" ",STRINGIMAGE _/WSNAME,'" A") _/UPDATE() --% Inplace Merge Sort for Lists |