From d0832d123c8ddd89ba7f14a338dd7fdc0e8af311 Mon Sep 17 00:00:00 2001 From: alfredoport Date: Sun, 22 Aug 2010 20:47:05 +0000 Subject: Coerce symbol to string for error display --- src/algebra/openmath.spad.pamphlet | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'src/algebra') 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) -- cgit v1.2.3