diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-05-09 20:40:25 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-05-09 20:40:25 +0000 |
| commit | a6c8f543276feb112a408d9347b56addd558bd6e (patch) | |
| tree | 1d814c384bdc4d025aae6895d316939d672be34b /src/interp/i-output.boot | |
| parent | 4c2ef607671da29d8ee0aefd393227af72936b44 (diff) | |
| download | open-axiom-a6c8f543276feb112a408d9347b56addd558bd6e.tar.gz | |
More STRCONC cleanups
Diffstat (limited to 'src/interp/i-output.boot')
| -rw-r--r-- | src/interp/i-output.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/i-output.boot b/src/interp/i-output.boot index 80f8c09c..82731c18 100644 --- a/src/interp/i-output.boot +++ b/src/interp/i-output.boot @@ -411,7 +411,7 @@ obj2String o == o = ")" => '")" o = "(" => '"(" STRINGIMAGE o - apply('STRCONC,[obj2String o' for o' in o]) + apply(function strconc,[obj2String o' for o' in o]) APP(u,x,y,d) == atom u => appChar(atom2String u,x,y,d) @@ -732,11 +732,11 @@ mkSuperSub(op,argl) == $linearFormatScripts => linearFormatForm(op,argl) -- l := [(string? f => f; STRINGIMAGE f) -- for f in linearFormatForm(op,argl)] --- "STRCONC"/l +-- strconc/l s:= PNAME op indexList:= [PARSE_-INTEGER PNAME d for i in 1.. while (DIGITP (d:= s.(maxIndex:= i)))] - cleanOp:= INTERN ("STRCONC"/[PNAME s.i for i in maxIndex..MAXINDEX s]) + cleanOp:= INTERN (strconc/[PNAME s.i for i in maxIndex..MAXINDEX s]) -- if there is just a subscript use the SUB special form #indexList=2 => subPart:= ['SUB,cleanOp,:take(indexList.1,argl)] @@ -1623,7 +1623,7 @@ outputDomainConstructor form == if VECTORP form then form := devaluate form atom (u:= prefix2String form) => u v:= [object2String(x) for x in u] - return INTERNL eval ['STRCONC,:v] + return INTERNL apply(function strconc,v) getOutputAbbreviatedForm form == form is [op,:argl] => |