aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/primelt.spad.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/primelt.spad.pamphlet')
-rw-r--r--src/algebra/primelt.spad.pamphlet2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/primelt.spad.pamphlet b/src/algebra/primelt.spad.pamphlet
index 1e392bdd..725c6750 100644
--- a/src/algebra/primelt.spad.pamphlet
+++ b/src/algebra/primelt.spad.pamphlet
@@ -97,7 +97,7 @@ PrimitiveElement(F): Exports == Implementation where
case "failed" => error "Should not happen"
ll := concat(map(#1,
(- univariate(coefficient(p,0)) * bc.coef1) rem pw), ll)
- concat(map(#1, pw), reverse_! ll)
+ concat(map(#1, pw), reverse! ll)
primitiveElement(l, vars, uu) ==
u := uu::P