aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/ChangeLog5
-rw-r--r--src/algebra/openmath.spad.pamphlet9
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)