Tons of busywork to please the !@#$% gaplint

gap-system · Sep 29, 2023 · 98c9f99 · 98c9f99
1 parent 847bd88
commit 98c9f99
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 n,l, o, b, t, r;
 
  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