diff options
| author | alfredoport <doyenatccny@gmail.com> | 2010-08-22 20:47:05 +0000 |
|---|---|---|
| committer | alfredoport <doyenatccny@gmail.com> | 2010-08-22 20:47:05 +0000 |
| commit | d0832d123c8ddd89ba7f14a338dd7fdc0e8af311 (patch) | |
| tree | a374086b10b0a29e1dcd90621dbe567a85ce5c2c /src/algebra/openmath.spad.pamphlet | |
| parent | 94771a7d5196b293f6d8004f286a3019f946a6f3 (diff) | |
| download | open-axiom-d0832d123c8ddd89ba7f14a338dd7fdc0e8af311.tar.gz | |
Coerce symbol to string for error display
Diffstat (limited to 'src/algebra/openmath.spad.pamphlet')
| -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) |