Make some lists in DirectProductInfo immutable

gap-system · Mar 25, 2021 · 4a3fe6a · 4a3fe6a
1 parent e71e36c
commit 4a3fe6a
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/gprdperm.gi b/lib/gprdperm.gi
@@ -31,8 +31,8 @@ BindGlobal("DirectProductOfPermGroupsWithMovedPoints",
 
         # find old domain, new domain, and conjugating permutation
         grp  := grps[i];
-        old  := pnts[i];
-        new  := [deg+1..deg+Length(old)];
+        old  := Immutable(pnts[i]);
+        new  := MakeImmutable([deg+1..deg+Length(old)]);
         perm := MappingPermListList( old, new );
         deg  := deg + Length(old);
         Add( oldgrps, grp );