diff options
author | dos-reis <gdr@axiomatics.org> | 2011-02-24 03:14:35 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-02-24 03:14:35 +0000 |
commit | 7eca3ee736c49024a85ad00ff9b0a912d640380c (patch) | |
tree | 3ac6fb675cb2efbf8c4a62dfa9ca069de6aeb234 /src/interp/i-output.boot | |
parent | 155d5c8bf8562bc3797535df1cbb89f7dcb5c03d (diff) | |
download | open-axiom-7eca3ee736c49024a85ad00ff9b0a912d640380c.tar.gz |
some cleanups
Diffstat (limited to 'src/interp/i-output.boot')
-rw-r--r-- | src/interp/i-output.boot | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/interp/i-output.boot b/src/interp/i-output.boot index 26abb4d7..afbfb7e8 100644 --- a/src/interp/i-output.boot +++ b/src/interp/i-output.boot @@ -1532,7 +1532,7 @@ formulaFormat expr == NIL texFormat expr == - tf := '(TexFormat) + tf := $TexFormat formatFn := getFunctionFromDomain("convert",tf,[$OutputForm,$Integer]) displayFn := getFunctionFromDomain("display",tf,[tf]) @@ -1542,7 +1542,7 @@ texFormat expr == NIL texFormat1 expr == - tf := '(TexFormat) + tf := $TexFormat formatFn := getFunctionFromDomain("coerce",tf, [$OutputForm]) displayFn := getFunctionFromDomain("display",tf,[tf]) SPADCALL(SPADCALL(expr,formatFn),displayFn) @@ -1551,8 +1551,8 @@ texFormat1 expr == NIL mathmlFormat expr == - mml := '(MathMLFormat) - mmlrep := '(String) + mml := $MathMLFormat + mmlrep := $String formatFn := getFunctionFromDomain("coerce",mml,[$OutputForm]) displayFn := getFunctionFromDomain("display",mml,[mmlrep]) SPADCALL(SPADCALL(expr,formatFn),displayFn) @@ -1683,8 +1683,8 @@ printMap1(x,initialFlag) == printBasic second x printBasic x == - x='(One) => PRIN1(1,$algebraOutputStream) - x='(Zero) => PRIN1(0,$algebraOutputStream) + x=$One => PRIN1(1,$algebraOutputStream) + x=$Zero => PRIN1(0,$algebraOutputStream) IDENTP x => PRINTEXP(symbolName x,$algebraOutputStream) atom x => PRIN1(x,$algebraOutputStream) PRIN1(x,$algebraOutputStream) |