aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/permgrps.spad.pamphlet
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2009-06-11 23:00:40 +0000
committerdos-reis <gdr@axiomatics.org>2009-06-11 23:00:40 +0000
commit9e07dcd91c45bf8b22d932321f5c97e931ffe8ac (patch)
tree6d2174e90e5779b1b3ab4ae7df3ae6603b66c6c2 /src/algebra/permgrps.spad.pamphlet
parent7bd82b57975bbc1ff5b87fed0739815c620ecdcc (diff)
downloadopen-axiom-9e07dcd91c45bf8b22d932321f5c97e931ffe8ac.tar.gz
* algebra/: Don't quote '!' at end of names.
Diffstat (limited to 'src/algebra/permgrps.spad.pamphlet')
-rw-r--r--src/algebra/permgrps.spad.pamphlet8
1 files changed, 4 insertions, 4 deletions
diff --git a/src/algebra/permgrps.spad.pamphlet b/src/algebra/permgrps.spad.pamphlet
index e987cc77..6302f5aa 100644
--- a/src/algebra/permgrps.spad.pamphlet
+++ b/src/algebra/permgrps.spad.pamphlet
@@ -567,7 +567,7 @@ PermutationGroup(S:SetCategory): public == private where
group2 := brace()$(FSET PERM S)
gp : L PERM S := group.gens
for gen in gp repeat
- if degree gen > 0 then insert_!(gen, group2)
+ if degree gen > 0 then insert!(gen, group2)
group2
knownGroup? (gp : %) : Void ==
@@ -705,14 +705,14 @@ PermutationGroup(S:SetCategory): public == private where
outList := orbitInternal ( gp , elList )
outSet := brace()$(FSET S)
for i in 1..#outList repeat
- insert_! ( outList.i.1 , outSet )
+ insert! ( outList.i.1 , outSet )
outSet
orbits ( gp ) ==
spp := movedPoints gp
orbits := nil()$(L FSET S)
while cardinality spp > 0 repeat
- el := extract_! spp
+ el := extract! spp
orbitSet := orbit ( gp , el )
orbits := cons ( orbitSet , orbits )
spp := difference ( spp , orbitSet )
@@ -760,7 +760,7 @@ PermutationGroup(S:SetCategory): public == private where
outSet := brace()$(FSET FSET S)
for i in 1..#outList repeat
newSet : FSET S := brace outList.i
- insert_! ( newSet , outSet )
+ insert! ( newSet , outSet )
outSet
orbit ( gp : % , startList : L S ) : FSET L S ==