From 1fd3d745cf6baa4cbaf3469f963f17fa6f5420cd Mon Sep 17 00:00:00 2001 From: Louis Pilfold Date: Wed, 23 Oct 2019 21:59:54 +0100 Subject: Update stdlib to use multi-subject case --- gen/src/gleam@list.erl | 8 ++++---- gen/src/gleam@order.erl | 6 +++--- 2 files changed, 7 insertions(+), 7 deletions(-) (limited to 'gen/src') diff --git a/gen/src/gleam@list.erl b/gen/src/gleam@list.erl index 291bd7f..4e3a60d 100644 --- a/gen/src/gleam@list.erl +++ b/gen/src/gleam@list.erl @@ -214,16 +214,16 @@ any(List, F) -> end end. -zip(L1, L2) -> - case {L1, L2} of +zip(Xs, Ys) -> + case {Xs, Ys} of {[], _} -> []; {_, []} -> []; - {[X1 | Rest1], [X2 | Rest2]} -> - [{X1, X2} | zip(Rest1, Rest2)] + {[X | Xs1], [Y | Ys1]} -> + [{X, Y} | zip(Xs1, Ys1)] end. strict_zip(L1, L2) -> diff --git a/gen/src/gleam@order.erl b/gen/src/gleam@order.erl index 9e259ed..45e6474 100644 --- a/gen/src/gleam@order.erl +++ b/gen/src/gleam@order.erl @@ -44,7 +44,7 @@ compare(A, B) -> {eq, gt} -> lt; - _ -> + {_, _} -> gt end. @@ -56,7 +56,7 @@ max(A, B) -> {eq, lt} -> eq; - _ -> + {_, _} -> B end. @@ -68,6 +68,6 @@ min(A, B) -> {eq, gt} -> eq; - _ -> + {_, _} -> B end. -- cgit v1.2.3