diff options
Diffstat (limited to 'src/algebra/ddfact.spad.pamphlet')
-rw-r--r-- | src/algebra/ddfact.spad.pamphlet | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/ddfact.spad.pamphlet b/src/algebra/ddfact.spad.pamphlet index 46ef51c6..2fbc0ca5 100644 --- a/src/algebra/ddfact.spad.pamphlet +++ b/src/algebra/ddfact.spad.pamphlet @@ -225,7 +225,7 @@ DistinctDegreeFactorize(F,FP): C == T if (lcm := leadingCoefficient m) ~=1 then m := (inv lcm)*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 factlist := [[monomial(1,1),d]$ParFact] d:=degree m |