diff options
Diffstat (limited to 'src/algebra/fraction.spad.pamphlet')
| -rw-r--r-- | src/algebra/fraction.spad.pamphlet | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/algebra/fraction.spad.pamphlet b/src/algebra/fraction.spad.pamphlet index 8d37bb4f..a1ef630b 100644 --- a/src/algebra/fraction.spad.pamphlet +++ b/src/algebra/fraction.spad.pamphlet @@ -368,7 +368,7 @@ Fraction(S: IntegralDomain): QuotientFieldCategory S with s: String := "" sp := OM_-STRINGTOSTRINGPTR(s)$Lisp dev: OpenMathDevice := _ - OMopenString(sp pretend String, OMencodingXML) + OMopenString(sp pretend String, OMencodingXML()) OMputObject(dev) writeOMFrac(dev, x) OMputEndObject(dev) @@ -380,7 +380,7 @@ Fraction(S: IntegralDomain): QuotientFieldCategory S with s: String := "" sp := OM_-STRINGTOSTRINGPTR(s)$Lisp dev: OpenMathDevice := _ - OMopenString(sp pretend String, OMencodingXML) + OMopenString(sp pretend String, OMencodingXML()) if wholeObj then OMputObject(dev) writeOMFrac(dev, x) @@ -699,6 +699,8 @@ FractionFunctions2(A, B): Exports == Impl 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 |