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, C} -> Expr([A, B, C]);
|
||||
{block, _, Ss} -> Expr(Ss);
|
||||
{letpat, _, X, P} -> Scoped(BindExpr(X), Expr(P));
|
||||
{letpat, _, X, P} -> Plus(BindExpr(X), Expr(P));
|
||||
%% field()
|
||||
{field, _, LV, E} -> Expr([LV, E]);
|
||||
{field, _, LV, _, E} -> Expr([LV, E]);
|
||||
|
Loading…
x
Reference in New Issue
Block a user