From: Mark Thom <markjordanthom@gmail.com>
Date: Wed, 3 Feb 2021 23:38:44 +0000 (-0700)
Subject: resolve calls to tranpose_ and same_length in lists.pl (#790)
X-Git-Tag: v0.9.0~150^2~66^2~1
X-Git-Url: https://git.sagredo.dev/?a=commitdiff_plain;h=2fe55e47153432563a0664921ecf10a03caebb0c;p=scryer-prolog.git

resolve calls to tranpose_ and same_length in lists.pl (#790)
---

diff --git a/src/lib/lists.pl b/src/lib/lists.pl
index 5549a061..0a799672 100644
--- a/src/lib/lists.pl
+++ b/src/lib/lists.pl
@@ -160,8 +160,8 @@ transpose(Ls, Ts) :-
 
 lists_transpose([], []).
 lists_transpose([L|Ls], Ts) :-
-        maplist(same_length(L), Ls),
-        foldl(transpose_, L, Ts, [L|Ls], _).
+        maplist(lists:same_length(L), Ls),
+        foldl(lists:transpose_, L, Ts, [L|Ls], _).
 
 transpose_(_, Fs, Lists0, Lists) :-
         maplist(lists:list_first_rest, Lists0, Fs, Lists).