diff options
Diffstat (limited to 'src/algebra/symbol.spad.pamphlet')
| -rw-r--r-- | src/algebra/symbol.spad.pamphlet | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/algebra/symbol.spad.pamphlet b/src/algebra/symbol.spad.pamphlet index dc99be07..3db5f61e 100644 --- a/src/algebra/symbol.spad.pamphlet +++ b/src/algebra/symbol.spad.pamphlet @@ -87,7 +87,7 @@ Symbol(): Exports == Implementation where OMwrite(x: %): String == s: String := "" sp := OM_-STRINGTOSTRINGPTR(s)$Lisp - dev: OpenMathDevice := OMopenString(sp pretend String, OMencodingXML) + dev: OpenMathDevice := OMopenString(sp pretend String, OMencodingXML()) OMputObject(dev) writeOMSym(dev, x) OMputEndObject(dev) @@ -98,7 +98,7 @@ Symbol(): Exports == Implementation where OMwrite(x: %, wholeObj: Boolean): String == s: String := "" sp := OM_-STRINGTOSTRINGPTR(s)$Lisp - dev: OpenMathDevice := OMopenString(sp pretend String, OMencodingXML) + dev: OpenMathDevice := OMopenString(sp pretend String, OMencodingXML()) if wholeObj then OMputObject(dev) writeOMSym(dev, x) @@ -273,7 +273,7 @@ Symbol(): Exports == Implementation where resetNew() == count() := 0 for k in keys xcount repeat remove!(k, xcount) - void + void() scripted? sy == not ATOM(sy)$Lisp @@ -323,6 +323,8 @@ Symbol(): Exports == Implementation where <<license>>= --Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd. --All rights reserved. +-- Copyright (C) 2007-2010, Gabriel Dos Reis. +-- All rights reserved. -- --Redistribution and use in source and binary forms, with or without --modification, are permitted provided that the following conditions are |