diff options
| author | Louis Pilfold <louis@lpil.uk> | 2019-10-23 21:59:54 +0100 |
|---|---|---|
| committer | Louis Pilfold <louis@lpil.uk> | 2019-10-23 22:17:49 +0100 |
| commit | 1fd3d745cf6baa4cbaf3469f963f17fa6f5420cd (patch) | |
| tree | cad5fe9b84e3c0041e1b3d302c5f19b2d00a851f /gen/src | |
| parent | edaa30bda6520be7940e8c8fb8d0ec95947201e0 (diff) | |
| download | gleam_stdlib-1fd3d745cf6baa4cbaf3469f963f17fa6f5420cd.tar.gz gleam_stdlib-1fd3d745cf6baa4cbaf3469f963f17fa6f5420cd.zip | |
Update stdlib to use multi-subject case
Diffstat (limited to 'gen/src')
| -rw-r--r-- | gen/src/gleam@list.erl | 8 | ||||
| -rw-r--r-- | gen/src/gleam@order.erl | 6 |
2 files changed, 7 insertions, 7 deletions
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. |