]> Repositorios git - scryer-prolog.git/commitdiff
resolve calls to tranpose_ and same_length in lists.pl (#790)
authorMark Thom <[email protected]>
Wed, 3 Feb 2021 23:38:44 +0000 (16:38 -0700)
committerMark Thom <[email protected]>
Wed, 3 Feb 2021 23:38:46 +0000 (16:38 -0700)
src/lib/lists.pl

index 5549a061a853eed4d104199cc713819a04fa9c3c..0a799672cac6b15a991822a9acb83b6bb3393bb6 100644 (file)
@@ -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).