From 9e07dcd91c45bf8b22d932321f5c97e931ffe8ac Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 11 Jun 2009 23:00:40 +0000
Subject: 	* algebra/: Don't quote '!' at end of names.

---
 src/algebra/ffp.spad.pamphlet | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'src/algebra/ffp.spad.pamphlet')

diff --git a/src/algebra/ffp.spad.pamphlet b/src/algebra/ffp.spad.pamphlet
index 02ed358e..8455ad76 100644
--- a/src/algebra/ffp.spad.pamphlet
+++ b/src/algebra/ffp.spad.pamphlet
@@ -136,7 +136,7 @@ FiniteFieldExtensionByPolynomial(GF:FiniteFieldCategory,_
       y:$:=1
       m:=zero(extdeg,extdeg+1)$(Matrix GF)
       for i in 1..extdeg+1 repeat
-        setColumn_!(m,i,coordinates(y))$(Matrix GF)
+        setColumn!(m,i,coordinates(y))$(Matrix GF)
         y:=y*x
       rank(m)::PI
 
@@ -144,7 +144,7 @@ FiniteFieldExtensionByPolynomial(GF:FiniteFieldCategory,_
       y:$:=1
       m:=zero(extdeg,extdeg+1)$(Matrix GF)
       for i in 1..extdeg+1 repeat
-        setColumn_!(m,i,coordinates(y))$(Matrix GF)
+        setColumn!(m,i,coordinates(y))$(Matrix GF)
         y:=y*x
       v:=first nullSpace(m)$(Matrix GF)
       +/[monomial(v.(i+1),i)$(SUP GF) for i in 0..extdeg]
@@ -239,9 +239,9 @@ FiniteFieldExtensionByPolynomial(GF:FiniteFieldCategory,_
         tbl:TBL:=table()$TBL
         a:$:=1
         for i in (0::NNI)..(n-1)::NNI repeat
-          insert_!([lookup(a),i::NNI]$R,tbl)$TBL
+          insert!([lookup(a),i::NNI]$R,tbl)$TBL
           a:=a*base
-        insert_!([fac::PI,copy(tbl)$TBL]_
+        insert!([fac::PI,copy(tbl)$TBL]_
                $Record(key:PI,entry:TBL),discLogTable)$Table(PI,TBL)
       -- set logarithm initialization flag
       initlog? := false
-- 
cgit v1.2.3