From 2fe55e47153432563a0664921ecf10a03caebb0c Mon Sep 17 00:00:00 2001 From: Mark Thom Date: Wed, 3 Feb 2021 16:38:44 -0700 Subject: [PATCH] resolve calls to tranpose_ and same_length in lists.pl (#790) --- src/lib/lists.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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). -- 2.54.0