diff options
Diffstat (limited to 'src/algebra/ghensel.spad.pamphlet')
| -rw-r--r-- | src/algebra/ghensel.spad.pamphlet | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/ghensel.spad.pamphlet b/src/algebra/ghensel.spad.pamphlet index 64ff2a89..c89d966a 100644 --- a/src/algebra/ghensel.spad.pamphlet +++ b/src/algebra/ghensel.spad.pamphlet @@ -147,7 +147,7 @@ GeneralHenselPackage(RP,TP):C == T where finallist := cons(poly1,finallist) dfn := degree m aux := [] - for poly in fln repeat + for poly: local in fln repeat not member?(poly,auxl) => aux := cons(poly,aux) auxfl := [term for term in auxfl | not member?(poly,term)] factlist := [term for term in factlist | not member?(poly,term)] |