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/pspad1.boot | |
parent | dc2b7bf37f89919116cc3f599ca7744803013d1e (diff) | |
download | open-axiom-4c2ef607671da29d8ee0aefd393227af72936b44.tar.gz |
Cleanup STRCONC uses
Diffstat (limited to 'src/interp/pspad1.boot')
-rw-r--r-- | src/interp/pspad1.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/pspad1.boot b/src/interp/pspad1.boot index 1b6c4050..62703b9f 100644 --- a/src/interp/pspad1.boot +++ b/src/interp/pspad1.boot @@ -106,7 +106,7 @@ fragmentsToLine fragments == lispStringList2String x == null x => '"" atom x => STRINGIMAGE x - rest x => apply(function STRCONC,MAPCAR(function lispStringList2String,x)) + rest x => apply(function strconc,MAPCAR(function lispStringList2String,x)) lispStringList2String first x --% routines for buffer and margin adjustment @@ -126,7 +126,7 @@ formatOutput x == line:= fragmentsToLine x x:= #line+#y>$lineLength => - (y:= STRCONC(nBlanks $m,y); extraLines:= [y,:extraLines]; x) + (y:= strconc(nBlanks $m,y); extraLines:= [y,:extraLines]; x) [line,y] consLineBuffer x for y in extraLines repeat consLineBuffer LIST y @@ -339,7 +339,7 @@ formatUnion(['Union,:r]) == x is [":",y,'Branch] => fn STRINGIMAGE y string? x => [":", INTERN x, ['Enumeration,x]] x is [":",:.] => x - tag := INTERN STRCONC("value",STRINGIMAGE ($count := $count + 1)) + tag := INTERN strconc("value",STRINGIMAGE ($count := $count + 1)) [":", tag, x] formatTestForPartial u == |