Bug fix and little different way of writing logic

This commit is contained in:
Thomas Arts 2019-06-03 11:07:00 +02:00
parent 58daf1bb5c
commit e8390e52d1

View File

@ -278,13 +278,13 @@ lt(13, ?FATE_LIST_VALUE([A|RA]), ?FATE_LIST_VALUE([B|RB])) ->
lt(14, ?FATE_VARIANT(AritiesA, TagA, TA),
?FATE_VARIANT(AritiesB, TagB, TB)) ->
if length(AritiesA) < length(AritiesB) -> true;
length(AritiesB) > length(AritiesA) -> false;
length(AritiesA) > length(AritiesB) -> false;
true ->
if AritiesA < AritiesB -> true;
AritiesB < AritiesA -> false;
AritiesA > AritiesB -> false;
true ->
if TagA < TagB -> true;
TagB < TagA -> false;
TagA > TagB -> false;
true -> lt(make_tuple(TA), make_tuple(TB))
end
end