Merge branch 'stable-1.5'

Author: wilfwilson

gap/grahom.gi

@@ -107,7 +107,7 @@ function(D, n)
     fi;
   fi;
 
-  # Only the null D with 0 vertices can be coloured with 0 colours
+  # Only the null digraph with 0 vertices can be coloured with 0 colours
   if n = 0 then
     if DigraphHasNoVertices(D) then
       return IdentityTransformation;

src/digraphs.c

@@ -86,7 +86,7 @@ Obj FuncOutNeighbours(Obj self, Obj D) {
   if (!RNamOutNeighbours) {
     RNamOutNeighbours = RNamName("OutNeighbours");
   }
-  if (!CALL_1ARGS(IsDigraph, D)) {
+  if (CALL_1ARGS(IsDigraph, D) != True) {
     ErrorQuit("expected a digraph, not a %s", (Int) TNAM_OBJ(D), 0L);
   } else if (IsbPRec(D, RNamOutNeighbours)) {
     return ElmPRec(D, RNamOutNeighbours);

tst/standard/digraph.tst

@@ -1873,6 +1873,10 @@ false
 gap> "brinkmann" in ListNamedDigraphs("man", 1000);
 true
 
+# OutNeighbours
+gap> OutNeighbours(OutNeighbours);
+Error, expected a digraph, not a function
+
 #  DIGRAPHS_UnbindVariables
 gap> Unbind(G);
 gap> Unbind(adj);