Minor tweaks

gap/matrix/classical.gi

@@ -219,18 +219,17 @@ BindRecogMethod(FindHomMethodsClassical, "IsGeneric",
 "tests whether group is generic",
 function (recognise, grp)
     if recognise.isGeneric = false then
-        return false;
+        return NeverApplicable;
     fi;
 
     if Length(recognise.E) < 2 or
        Length(recognise.LE) = 0 or
        Length(recognise.BE) = 0 then
-        return fail;
+        return TemporaryFailure;
     fi;
 
     recognise.isGeneric := true;
-
-    return false;
+    return NeverApplicable;
 end);
 
 #enough info to rule out extension field groups...?
@@ -646,7 +645,7 @@ function(recognise, grp)
         AddSet( recognise.porders, ord );
     fi;
 
-    ppd := IsPpdElement (f, cpol, d, recognise.q, 1);
+    ppd := IsPpdElement (f, cpol, d, q, 1);
     # if the element is no ppd we get out
     if ppd = false then
         recognise.isppd := false;

gap/projective/tensor.gi

@@ -17,7 +17,7 @@
 ##
 #############################################################################
 
-RECOG.FindTensorKernel := function(ri,G,onlyone)
+RECOG.FindTensorKernel := function(G,onlyone)
   # Assume G respects a tensor product decomposition of its natural
   # module V. Try to find the kernel of the canonical map:
   local N,allps,c,fac,facs,i,j,kgens,newc,notused,o,pfacs,x,z;
@@ -339,7 +339,7 @@ function(ri,G)
 
   # Now assume a tensor factorization exists:
   #Gm := GroupWithMemory(G);???
-  N := RECOG.FindTensorKernel(ri,G,true);
+  N := RECOG.FindTensorKernel(G,true);
   Info(InfoRecog,3,
        "TensorDecomposable: I seem to have found a normal subgroup...");
   r := RECOG.FindTensorDecomposition(G,N);