aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/ddfact.spad.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/ddfact.spad.pamphlet')
-rw-r--r--src/algebra/ddfact.spad.pamphlet2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/ddfact.spad.pamphlet b/src/algebra/ddfact.spad.pamphlet
index 97b8f811..f160ec23 100644
--- a/src/algebra/ddfact.spad.pamphlet
+++ b/src/algebra/ddfact.spad.pamphlet
@@ -191,7 +191,7 @@ DistinctDegreeFactorize(F,FP): C == T
degree fprod = d => ris := cons(fprod,ris)
aux:=[fprod]
setPoly fprod
- while ^(empty? aux) repeat
+ while not (empty? aux) repeat
t := ranpol(2*d)
if charF then t:=trace2PowMod(t,(n1*d-1)::NNI,fprod)
else t:=exptMod(tracePowMod(t,(d-1)::NNI,fprod),