Use Plus instead of Scoped
This commit is contained in:
parent
9d200bc347
commit
34faf7bb57
@ -88,7 +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));
|
{letpat, _, X, P} -> Plus(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