From 9d200bc347f46801a2f63c08b6aa6f6140808f25 Mon Sep 17 00:00:00 2001
From: Gaith Hallak <gaithhallak@gmail.com>
Date: Tue, 7 Sep 2021 17:25:48 +0300
Subject: [PATCH] Add letpat to aeso_syntax_utils:fold

---
 src/aeso_syntax_utils.erl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/aeso_syntax_utils.erl b/src/aeso_syntax_utils.erl
index deef257..ce766ab 100644
--- a/src/aeso_syntax_utils.erl
+++ b/src/aeso_syntax_utils.erl
@@ -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, C}  -> Expr([A, B, C]);
             {block, _, Ss}         -> Expr(Ss);
+            {letpat, _, X, P}      -> Scoped(BindExpr(X), Expr(P));
             %% field()
             {field, _, LV, E}    -> Expr([LV, E]);
             {field, _, LV, _, E} -> Expr([LV, E]);