QPQ-AG/gmbytecode
10
0
Fork 0
Code Issues 1 Pull Requests 1 Actions Packages Projects Releases 9 Wiki Activity

fix arities formatting

Browse Source
This commit is contained in:
Thomas Arts 2019-04-08 14:49:17 +02:00
parent fa64bbb56c
commit 0c01215b6a
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/aeb_fate_data.erl
View File

@ -216,7 +216,7 @@ format(?FATE_BITS(B)) when B < 0 ->
format(?FATE_VARIANT(Arities, Tag, T)) -> format(?FATE_VARIANT(Arities, Tag, T)) ->
["(| ", ["(| ",
lists:join("| ", lists:join("| ",
[io_lib:format("~p", [Arities]), [format_arities(Arities),
integer_to_list(Tag) | integer_to_list(Tag) |
[format(make_tuple(T))]]), [format(make_tuple(T))]]),
" |)"]; " |)"];
@ -247,6 +247,9 @@ format_nbits(N, Acc) ->
Bit = $1 - (N band 1), Bit = $1 - (N band 1),
format_nbits(N bsr 1, [Bit|Acc]). format_nbits(N bsr 1, [Bit|Acc]).
format_arities(Arities) ->
["[ ", lists:join(", ", [integer_to_list(E) || E <- Arities]), " ]"].
format_list(List) -> format_list(List) ->
["[ ", lists:join(", ", [format(E) || E <- List]), " ]"]. ["[ ", lists:join(", ", [format(E) || E <- List]), " ]"].