diff options
Diffstat (limited to 'src/algebra/unifact.spad.pamphlet')
-rw-r--r-- | src/algebra/unifact.spad.pamphlet | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/unifact.spad.pamphlet b/src/algebra/unifact.spad.pamphlet index 4d5d874b..ab5a3e8e 100644 --- a/src/algebra/unifact.spad.pamphlet +++ b/src/algebra/unifact.spad.pamphlet @@ -253,7 +253,7 @@ UnivariateFactorize(ZP) : public == private where m := -m -- is x**d factor of m? - if (d := minimumDegree m) >0 then + if positive?(d := minimumDegree m) then m := (monicDivide(m,monomial(1,d))).quotient factorlist := [[monomial(1,1),d]$ParFact] |