diff options
Diffstat (limited to 'src/algebra/newpoly.spad.pamphlet')
| -rw-r--r-- | src/algebra/newpoly.spad.pamphlet | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/algebra/newpoly.spad.pamphlet b/src/algebra/newpoly.spad.pamphlet index 459ef7b3..65bdcde7 100644 --- a/src/algebra/newpoly.spad.pamphlet +++ b/src/algebra/newpoly.spad.pamphlet @@ -1367,7 +1367,7 @@ RecursivePolynomialCategory(R:Ring, E:OrderedAbelianMonoidSup, V:OrderedSet): Ca then convert(pol:$):String == - ground?(pol) => convert(retract(ground(pol))@INT)@String + ground?(pol) => string(retract(ground(pol))@INT) ipol : $ := init(pol) vpol : V := mvar(pol) dpol : NNI := mdeg(pol) @@ -1392,7 +1392,7 @@ RecursivePolynomialCategory(R:Ring, E:OrderedAbelianMonoidSup, V:OrderedSet): Ca then sdpol := empty()$String else - sdpol := concat("**",convert(convert(dpol)@INT)@String )$String + sdpol := concat("**",string(convert(dpol)@INT))$String if zero? tpol then stpol := empty()$String @@ -1402,9 +1402,9 @@ RecursivePolynomialCategory(R:Ring, E:OrderedAbelianMonoidSup, V:OrderedSet): Ca n := retract(ground(tpol))@INT if positive? n then - stpol := concat(" +",convert(n)@String)$String + stpol := concat(" +", string n)$String else - stpol := convert(n)@String + stpol := string n else stpol := convert(tpol)@String if not member?((stpol.1)::String,["+","-"])$(List String) |