diff options
| -rw-r--r-- | src/ChangeLog | 5 | ||||
| -rw-r--r-- | src/algebra/openmath.spad.pamphlet | 9 |
2 files changed, 11 insertions, 3 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 8148fce1..fd38d66f 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,10 @@ 2010-08-22 Gabriel Dos Reis <gdr@cs.tamu.edu> + * algebra/openmath.spad.pamphlet (outputOMFunction): Coerce + symbol to string for error display. + +2010-08-22 Gabriel Dos Reis <gdr@cs.tamu.edu> + * algebra/e04Package.spad.pamphlet (goodnessOfFit): Add explicit package call to ErrorFunctions. diff --git a/src/algebra/openmath.spad.pamphlet b/src/algebra/openmath.spad.pamphlet index 932e0fb9..24a53ae4 100644 --- a/src/algebra/openmath.spad.pamphlet +++ b/src/algebra/openmath.spad.pamphlet @@ -185,12 +185,14 @@ ExpressionToOpenMath(R: Join(OpenMath, Ring)): with zero? nargs => omOp: Union(SymInfo, "failed") := search(op, nullaryFunctionAList) omOp case "failed" => - error concat ["No OpenMath definition for nullary function ", coerce op] + msg := concat ["No OpenMath definition for nullary function ", string op] + error msg OMputSymbol(dev, omOp.cd, omOp.name) one? nargs => omOp: Union(SymInfo, "failed") := search(op, unaryFunctionAList) omOp case "failed" => - error concat ["No OpenMath definition for unary function ", coerce op] + msg := concat ["No OpenMath definition for unary function ", string op] + error msg OMputApp(dev) OMputSymbol(dev, omOp.cd, omOp.name) for arg in args repeat @@ -206,7 +208,8 @@ ExpressionToOpenMath(R: Join(OpenMath, Ring)): with op = %defprod => outputOMDefprod(dev, args) op = %power => outputOMPower(dev, args) op = binomial => outputOMBinomial(dev, args) - error concat ["No OpenMath definition for function ", string op] + msg := concat ["No OpenMath definition for function ", string op] + error msg outputOMExpr(dev: OpenMathDevice, ex: Expression R): Void == ground? ex => OMwrite(dev, ground ex, false) |