add sumlist/2 to lists.pl

2019-11-30 14:26:15 -07:00
parent 27b659c401
commit 77e83a390c
1 changed files with 1 additions and 1 deletions
--- a/src/prolog/lib/lists.pl
+++ b/src/prolog/lib/lists.pl
@@ -104,7 +104,7 @@ maplist(Cont, [E1|E1s], [E2|E2s], [E3|E3s], [E4|E4s], [E5|E5s], [E6|E6s], [E7|E7
 sumlist_([], S, S).
 sumlist_([N|Ns], S, S0) :-
    S1 is S0 + N,
-    sumlist(Ns, S, S1).
+    sumlist_(Ns, S, S1).

 sumlist(Ns, S) :-
    must_be(list, Ns),