Fix Orbits with a range as seeds

gap-system · Sep 15, 2022 · 1f51b1d · 1f51b1d
1 parent 51ef90d
commit 1f51b1d
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/lib/oprt.gi b/lib/oprt.gi
@@ -1664,7 +1664,7 @@ end );
 
 InstallMethod( Orbits, "for arbitrary domains", true, OrbitsishReq, 0,
 function( G, D, gens, acts, act )
-local   orbs, orb,sort,plist,pos,use,o,nc,ld,ld1;
+local   orbs, orb,sort,plist,pos,use,o,nc,ld,ld1,pc;
 
   sort:=Length(D)>0 and CanEasilySortElements(D[1]);
   plist:=IsPlistRep(D);
@@ -1691,7 +1691,10 @@ local   orbs, orb,sort,plist,pos,use,o,nc,ld,ld1;
       fi;
     else
       for o in orb do
-        use[PositionCanonical(D,o)]:=true;
+        pc:=PositionCanonical(D,o);
+        if pc <> fail then
+          use[pc]:=true;
+        fi;
       od;
       # not plist -- do not take difference as there may be special
       # `PositionCanonical' method.