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/mark.boot | |
| parent | dc2b7bf37f89919116cc3f599ca7744803013d1e (diff) | |
| download | open-axiom-4c2ef607671da29d8ee0aefd393227af72936b44.tar.gz | |
Cleanup STRCONC uses
Diffstat (limited to 'src/interp/mark.boot')
| -rw-r--r-- | src/interp/mark.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/mark.boot b/src/interp/mark.boot index e3c58efd..d1469405 100644 --- a/src/interp/mark.boot +++ b/src/interp/mark.boot @@ -1046,7 +1046,7 @@ markPrint(:options) == --print $def else ['add,a,:r] := $originalBody xtraLines := - "append"/[[STRCONC(name,'": Category == with"),'""] + "append"/[[strconc(name,'": Category == with"),'""] for name in markCheckForAttributes a] nbody := $originalBody is ['add,a,b] => @@ -1440,7 +1440,7 @@ combineDefinitions() == [predl,.,:def] := item ['DEF, form, :.] := def ops := PNAME op - opName := INTERN(STRCONC(ops,'"X",STRINGIMAGE i)) + opName := INTERN(strconc(ops,'"X",STRINGIMAGE i)) form.first := opName -- rplacaSubst(op, opName, def) $acc := [[form,:predl], :$acc] |