diff options
Diffstat (limited to 'src/algebra')
-rw-r--r-- | src/algebra/openmath.spad.pamphlet | 9 |
1 files changed, 6 insertions, 3 deletions
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) |