diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-12-12 04:12:20 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-12-12 04:12:20 +0000 |
| commit | 2583edf6b172ea98d700773df5f51761aee01692 (patch) | |
| tree | 8df49363ad97afcdeaca8a2dd0f18eb778849b22 /src/interp/i-output.boot | |
| parent | dd14d434d1d7d06cd90a5a8a0fd1bef6cfffda8f (diff) | |
| download | open-axiom-2583edf6b172ea98d700773df5f51761aee01692.tar.gz | |
Clean symbol vs. character vs. string confusion
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 40ad756c..a05df223 100644 --- a/src/interp/i-output.boot +++ b/src/interp/i-output.boot @@ -1657,7 +1657,7 @@ outputOp x == n:= GETL(op,"NARY") => 2 #args - newop:= INTERN strconc("*",STRINGIMAGE n,PNAME op) + newop:= INTERN strconc('"*",STRINGIMAGE n,PNAME op) [newop,:[outputOp y for y in args]] x @@ -2686,10 +2686,10 @@ parms2String x == x is [var] => var if x is ["tuple",:.] then x := rest x paren [parm xs for xs in tails x] where - paren l == "strconc"/["(",:l,")"] + paren l == "strconc"/['"(",:l,'")"] parm xs == null rest xs => first xs - strconc(first xs, ", ") + strconc(first xs, '", ") inputForm2String x == atom x => primaryForm2String x @@ -2706,7 +2706,7 @@ inputForm2String x == op in '(_@ _:_: pretend) => typedForm2String(op, first args, second args) op = "+->" => - strconc(parms2String second x, " ", first x, " ", + strconc(parms2String second x, '" ", first x, '" ", inputForm2String third x) callForm2String x callForm2String x |