From f78ac9f8988cbcb6b3f777182d82b471305dceb4 Mon Sep 17 00:00:00 2001
From: Hugo Heuzard <hugo.heuzard@gmail.com>
Date: Thu, 29 Feb 2024 10:55:34 +0100
Subject: [PATCH] FIX

---
 compiler/lib/js_traverse.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/lib/js_traverse.ml b/compiler/lib/js_traverse.ml
index 211e80943f..0eb9c3b724 100644
--- a/compiler/lib/js_traverse.ml
+++ b/compiler/lib/js_traverse.ml
@@ -1486,7 +1486,7 @@ class compact_vardecl =
     method private var x = insert_ <- IdentSet.add x insert_
 
     method fun_decl (k, params, body, nid) =
-      let m' = {<>} in
+      let m' = {<insert_ = IdentSet.empty>} in
       let params = m'#formal_parameter_list params in
       let body = m'#function_body body in
       let body = m'#pack body in