diff options
author | dos-reis <gdr@axiomatics.org> | 2010-12-28 03:37:28 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-12-28 03:37:28 +0000 |
commit | 8efa78fb1bfa0e9afce20922020129130f9c69be (patch) | |
tree | fa6fb18ca4160751aa65badb7048b6225783616f /src/interp/i-output.boot | |
parent | dbbc18b48695c2339520e9ba1e640f7559ff2e8a (diff) | |
download | open-axiom-8efa78fb1bfa0e9afce20922020129130f9c69be.tar.gz |
Clean up
Diffstat (limited to 'src/interp/i-output.boot')
-rw-r--r-- | src/interp/i-output.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/i-output.boot b/src/interp/i-output.boot index 715e688b..654b2827 100644 --- a/src/interp/i-output.boot +++ b/src/interp/i-output.boot @@ -2618,7 +2618,7 @@ primaryForm2String x == IDENTP x => x = "$" => '"%" x = "$$" => '"%%" - SYMBOL_-NAME x + symbolName x atom x => toString x strconc('"(",inputForm2String x, '")") @@ -2644,7 +2644,7 @@ callForm2String x == typedForm2String(s,x,t) == s = "pretend" => strconc(callForm2String x, '" pretend ", callForm2String t) - strconc(callForm2String x, SYMBOL_-NAME s, callForm2String t) + strconc(callForm2String x, symbolName s, callForm2String t) expForm2String x == x is [op,lhs,rhs] and op in '(** _^) => |