diff options
author | dos-reis <gdr@axiomatics.org> | 2011-07-04 16:40:44 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-07-04 16:40:44 +0000 |
commit | 1a18d7b2e1b3796f6dc360e3bae0a57616aa497c (patch) | |
tree | 48b98145ec77b1a52b3eb1add288191767fa8a4b /src/interp/i-output.boot | |
parent | 2f5255f62b85b026dcf11adafff07ac2f254a41c (diff) | |
download | open-axiom-1a18d7b2e1b3796f6dc360e3bae0a57616aa497c.tar.gz |
* interp/setvars.boot: Remove support for script formula.
* interp/setvart.boot: Likewise.
* interp/diagnostics.boot (sayBrightlyNT1): Move from macros.lisp.
(sayBrightly1): Likewise.
(sayBrightlyNT): Likewise.
(sayBrightly): Likewise.
(sayBrightlyI): Likewise.
(sayMSG): Likewise.
(sayTeX): Likewise.
(sayMSG2File): Likewise.
* interp/i-output.boot (formulaFormat): Remove.
(output): Adjust.
* interp/macros.lisp (sayMSGNT): Remove.
(sayFORTRAN): Likewise.
(sayFORMULA): Likewise.
($formulaOutputstream): Likewise.
* interp/sys-globals.boot ($formulaOutputstream): Remove.
* interp/spad.lisp ($formulaFormat): Remove.
* algebra/exposed.lsp.pamphlet: Do not expose ScriptFormulaFormat
and ScriptFormulaFormat1.
* algebra/exposed.lsp.pamphlet: Remove.
Diffstat (limited to 'src/interp/i-output.boot')
-rw-r--r-- | src/interp/i-output.boot | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/src/interp/i-output.boot b/src/interp/i-output.boot index f79112b2..56f164a2 100644 --- a/src/interp/i-output.boot +++ b/src/interp/i-output.boot @@ -1524,15 +1524,6 @@ spadPrint(x,m) == output(x,m) newlineIfDisplaying() -formulaFormat expr == - sff := '(ScriptFormulaFormat) - formatFn := getFunctionFromDomain("coerce",sff,[$OutputForm]) - displayFn := getFunctionFromDomain("display",sff,[sff]) - SPADCALL(SPADCALL(expr,formatFn),displayFn) - if not $collectOutput then - finishLine $algebraOutputStream - nil - texFormat expr == tf := $TexFormat formatFn := @@ -1562,7 +1553,6 @@ mathmlFormat expr == output(expr,domain) == if isWrapped expr then expr := unwrap expr isMapExpr expr => - if $formulaFormat then formulaFormat expr if $texFormat then texFormat expr if $mathmlFormat then mathmlFormat expr if $algebraFormat then mathprintWithNumber(expr,domain) @@ -1573,7 +1563,6 @@ output(expr,domain) == texFormat outputDomainConstructor expr T := coerceInteractive(objNewWrap(expr,domain),$OutputForm) => x := objValUnwrap T - if $formulaFormat then formulaFormat x if $fortranFormat then dispfortexp x if not $collectOutput then |