diff options
Diffstat (limited to 'src/algebra/gdpoly.spad.pamphlet')
| -rw-r--r-- | src/algebra/gdpoly.spad.pamphlet | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/gdpoly.spad.pamphlet b/src/algebra/gdpoly.spad.pamphlet index 59004a5b..b169c548 100644 --- a/src/algebra/gdpoly.spad.pamphlet +++ b/src/algebra/gdpoly.spad.pamphlet @@ -74,7 +74,7 @@ GeneralDistributedMultivariatePolynomial(vl,R,E): public == private where zero?(p) => "failed" for v in vl repeat vv := variable(v)::OV - if degree(p,vv)>0 then return vv + if positive? degree(p,vv) then return vv "failed" ground?(p) == mainVariable(p) case "failed" |