diff options
Diffstat (limited to 'src/algebra/gaussfac.spad.pamphlet')
| -rw-r--r-- | src/algebra/gaussfac.spad.pamphlet | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/gaussfac.spad.pamphlet b/src/algebra/gaussfac.spad.pamphlet index 660d9f4c..25c6a2ab 100644 --- a/src/algebra/gaussfac.spad.pamphlet +++ b/src/algebra/gaussfac.spad.pamphlet @@ -72,7 +72,7 @@ GaussianFactorizationPackage() : C == T q1:=q-1 r:=q1 r1:=r exquo 4 - while ^(r1 case "failed") repeat + while not (r1 case "failed") repeat r:=r1::Z r1:=r exquo 2 s : FMod := reduce(1,q) |