Fix issue with uninitialized _param in recursive functions with uni…

…t argument. Fixes #6719
rescript-lang · Jul 26, 2024 · a4465d4 · a4465d4
1 parent 00903af
commit a4465d4
Show file tree

Hide file tree

Showing 3 changed files with 2 additions and 1 deletion.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -20,6 +20,7 @@
 - Ignore `@uncurry` attribute in uncurried mode, to avoid generating calls to `Curry` at runtime. https://github.com/rescript-lang/rescript-compiler/pull/6869
 - Avoid generating calls to Curry when adjusting arity of uncurried functions. https://github.com/rescript-lang/rescript-compiler/pull/6870
 - Fix build after calling without `-warn-error`, see https://github.com/rescript-lang/rescript-compiler/issues/6868 for more details. https://github.com/rescript-lang/rescript-compiler/pull/6877
+- Fix issue with uninitialized `_param` in recursive functions with unit argument. https://github.com/rescript-lang/rescript-compiler/pull/6907
 
 # 11.1.3-rc.1
 

diff --git a/jscomp/core/lam_compile.ml b/jscomp/core/lam_compile.ml
@@ -328,6 +328,7 @@ and compile_recursive_let ~all_bindings (cxt : Lam_compile_context.t)
          ]}
           [Alias] may not be exact
       *)
+      let params = if oneUnitArg then [] else params in
       let ret : Lam_compile_context.return_label =
         {
           id;

diff --git a/jscomp/test/uncurry_test.js b/jscomp/test/uncurry_test.js
-Original file line number
+Diff line change
@@ Expand Up @@
              ]}
               [Alias] may not be exact
           *)
+          let params = if oneUnitArg then [] else params in
           let ret : Lam_compile_context.return_label =
             {
               id;
@@ Expand Down @@