From: Mark Thom <markjordanthom@gmail.com>
Date: Sat, 30 Nov 2019 21:26:15 +0000 (-0700)
Subject: add sumlist/2 to lists.pl
X-Git-Tag: v0.8.118~36^2~13
X-Git-Url: https://git.sagredo.dev/?a=commitdiff_plain;h=77e83a390c95c11def1422043c60f55352b2c5e1;p=scryer-prolog.git

add sumlist/2 to lists.pl
---

diff --git a/src/prolog/lib/lists.pl b/src/prolog/lib/lists.pl
index ae207403..f3a4ef6b 100644
--- 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),