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).