More busywork to please gaplint

gap-system · Sep 29, 2023 · 66e0518 · 66e0518
1 parent 847bd88
commit 66e0518
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 5 deletions.
diff --git a/lib/grplatt.gi b/lib/grplatt.gi
@@ -3209,7 +3209,7 @@ end);
 #F  LowLayerSubgroups( [<act>,] <G>, <lim> [,<cond> [,<dosub>]] )
 ##
 InstallGlobalFunction(LowLayerSubgroups,function(arg)
-local act,offset,G,lim,cond,dosub,all,alln,m,i,j,jn,new,old,t,k,conjg,sma;
+local act,offset,G,lim,cond,dosub,all,m,i,j,new,old,t,sma;
   act:=arg[1];
   if IsGroup(act) and IsGroup(arg[2]) then
     offset:=2;

diff --git a/lib/oprtglat.gi b/lib/oprtglat.gi
@@ -450,9 +450,7 @@ end);
 InstallMethod(SubgroupsOrbitsAndNormalizers,"perm group on list",true,
   [IsPermGroup,IsList,IsBool],0,
 function(G,dom,all)
-  local savemem, n, l, o, pts, pbas, ptbas, un, domo, p, b, allo, ll, gp, t,
-  sel, r, i, rorbs, tl, selz, rem, sely, j, torb, iinv,
-  cl,lsd,domoj,startn;
+  local l, o, un, b, t, r, startn;
 
   if Length(dom)=0 then
     return dom;
@@ -464,7 +462,6 @@ function(G,dom,all)
 
   # new code -- without `all` option
 
-  savemem:=ValueOption("savemem");
   n:=Length(dom);
   if n>20 and ForAll(dom,x->IsSubset(G,x))
     and NrMovedPoints(G)>1000 then