diff options
Diffstat (limited to 'src/algebra/poly.spad.pamphlet')
| -rw-r--r-- | src/algebra/poly.spad.pamphlet | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/algebra/poly.spad.pamphlet b/src/algebra/poly.spad.pamphlet index e0688ad4..42c1eab2 100644 --- a/src/algebra/poly.spad.pamphlet +++ b/src/algebra/poly.spad.pamphlet @@ -881,7 +881,7 @@ UnivariatePolynomialSquareFree(RC:IntegralDomain,P):C == T else if RC has CharacteristicNonZero then BumInSepFFE(ffe:FF) == np := multiplyExponents(ffe.fctr,characteristic$P:NonNegativeInteger) - (nthrp := charthRoot(np)) case "failed" => + (nthrp := charthRoot(np)) case nothing => ["nil", np, ffe.xpnt] ["sqfr", nthrp, characteristic$P*ffe.xpnt] @@ -1010,7 +1010,7 @@ PolynomialSquareFree(VarSet:OrderedSet,E,RC:GcdDomain,P):C == T where pthPower(f:P) : Factored P == proot : P := 0 isSq : Boolean := false - if (g:=charthRoot f) case "failed" then proot:=pPolRoot(f) + if (g:=charthRoot f) case nothing then proot:=pPolRoot(f) else proot := g :: P isSq := true |