QPQ-AG/sophia
10
0
Fork 0
Code Issues 41 Pull Requests 5 Actions Packages Projects Releases 16 Wiki Activity

Fix pp_fpat

Browse Source
This commit is contained in:
Gaith Hallak 2023-05-26 13:54:03 +03:00
parent de52ca362a
commit 4c29750c3c
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/aeso_ast_to_fcode.erl
View File

@ -2427,7 +2427,8 @@ pp_pat({con, As, I, Xs}) -> pp_fexpr({con, [], As, I, [{var, [], X} || X <
pp_pat({var, X}) -> pp_fexpr({var, [], X}); pp_pat({var, X}) -> pp_fexpr({var, [], X});
pp_pat(P = {Tag, _}) when Tag == bool; Tag == int; Tag == string pp_pat(P = {Tag, _}) when Tag == bool; Tag == int; Tag == string
-> pp_fexpr({lit, [], P}); -> pp_fexpr({lit, [], P});
pp_pat(Pat) -> pp_fexpr(Pat). pp_pat(nil) -> pp_fexpr({nil, []});
pp_pat({assign, X, Y}) -> pp_beside([pp_text(X), pp_text(" = "), pp_text(Y)]).
-spec is_infix(op()) -> boolean(). -spec is_infix(op()) -> boolean().
is_infix(Op) -> is_infix(Op) ->