From 458a10298b08881bf7ee9207534ce431378d2c4e Mon Sep 17 00:00:00 2001
From: Wilf Wilson <wilf@wilf-wilson.net>
Date: Mon, 17 Jun 2019 15:13:40 +0200
Subject: [PATCH] digraphs.c: fix DigraphsNrEdges for range reps

---
 src/digraphs.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/digraphs.c b/src/digraphs.c
index bc971163a..0d2c14680 100644
--- 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;