Add letpat to aeso_syntax_utils:fold
This commit is contained in:
parent
27e2170545
commit
9d200bc347
@ -88,6 +88,7 @@ fold(Alg = #alg{zero = Zero, plus = Plus, scoped = Scoped}, Fun, K, X) ->
|
|||||||
{map_get, _, A, B} -> Expr([A, B]);
|
{map_get, _, A, B} -> Expr([A, B]);
|
||||||
{map_get, _, A, B, C} -> Expr([A, B, C]);
|
{map_get, _, A, B, C} -> Expr([A, B, C]);
|
||||||
{block, _, Ss} -> Expr(Ss);
|
{block, _, Ss} -> Expr(Ss);
|
||||||
|
{letpat, _, X, P} -> Scoped(BindExpr(X), Expr(P));
|
||||||
%% field()
|
%% field()
|
||||||
{field, _, LV, E} -> Expr([LV, E]);
|
{field, _, LV, E} -> Expr([LV, E]);
|
||||||
{field, _, LV, _, E} -> Expr([LV, E]);
|
{field, _, LV, _, E} -> Expr([LV, E]);
|
||||||
|
Loading…
x
Reference in New Issue
Block a user