digraphs.c: fix DigraphsNrEdges for range reps

digraphs · Jun 17, 2019 · 458a102 · 458a102
1 parent 737f1d8
commit 458a102
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/digraphs.c b/src/digraphs.c
@@ -75,7 +75,7 @@ Int DigraphNrEdges(Obj digraph) {
   adj = OutNeighbours(digraph);
   nr  = 0;
   for (i = 1; i <= n; i++) {
-    nr += LEN_PLIST(ELM_PLIST(adj, i));
+    nr += LEN_LIST(ELM_PLIST(adj, i));
   }
   AssPRec(digraph, RNamName("DigraphNrEdges"), INTOBJ_INT(nr));
   return nr;