diff --git a/gap/digraph.gi b/gap/digraph.gi index de263fddf..df6ce9051 100644 --- a/gap/digraph.gi +++ b/gap/digraph.gi @@ -1635,7 +1635,7 @@ end); InstallMethod(RandomDigraphCons, "for IsStronglyConnectedDigraph, a positive integer, and a float", [IsStronglyConnectedDigraph, IsPosInt, IsFloat], -function(filt, n, p) +function(_, n, p) local d, adjMatrix, stronglyConnectedComponents, scc_a, scc_b, i, random_u, random_v; diff --git a/tst/standard/oper.tst b/tst/standard/oper.tst index 87d6adde6..99fa35aad 100644 --- a/tst/standard/oper.tst +++ b/tst/standard/oper.tst @@ -2859,7 +2859,7 @@ gap> res := DigraphCycleBasis(D); [ , , , , , ] ] -gap> List(res[2], x -> List(x)); +gap> List(res[2], List); [ [ Z(2)^0, 0*Z(2), 0*Z(2), Z(2)^0, 0*Z(2), 0*Z(2), Z(2)^0, 0*Z(2), 0*Z(2), 0*Z(2) ], [ 0*Z(2), Z(2)^0, 0*Z(2), Z(2)^0, 0*Z(2), 0*Z(2), 0*Z(2), 0*Z(2), Z(2)^0, @@ -2883,7 +2883,7 @@ gap> res := DigraphCycleBasis(D); [ [ [ 6 ], [ 1, 3, 6 ], [ ], [ 5, 6 ], [ 2, 3, 6 ], [ ] ], [ , , , ] ] -gap> List(res[2], x -> List(x)); +gap> List(res[2], List); [ [ Z(2)^0, Z(2)^0, 0*Z(2), Z(2)^0, 0*Z(2), 0*Z(2), 0*Z(2), 0*Z(2), 0*Z(2) ], [ 0*Z(2), 0*Z(2), Z(2)^0, 0*Z(2), 0*Z(2), 0*Z(2), Z(2)^0, Z(2)^0, 0*Z(2) ], [ Z(2)^0, Z(2)^0, 0*Z(2), 0*Z(2), 0*Z(2), 0*Z(2), Z(2)^0, 0*Z(2), Z(2)^0 ], @@ -2893,7 +2893,7 @@ gap> D := DigraphDisjointUnion(CycleGraph(3), CycleGraph(4)); gap> res := DigraphCycleBasis(D); [ [ [ 2, 3 ], [ 3 ], [ ], [ 5, 7 ], [ 6 ], [ 7 ], [ ] ], [ , ] ] -gap> List(res[2], x -> List(x)); +gap> List(res[2], List); [ [ Z(2)^0, Z(2)^0, Z(2)^0, 0*Z(2), 0*Z(2), 0*Z(2), 0*Z(2) ], [ 0*Z(2), 0*Z(2), 0*Z(2), Z(2)^0, Z(2)^0, Z(2)^0, Z(2)^0 ] ]