Ensure that build_apply respects Lambda.max_arity

ocaml · Oct 20, 2021 · 5a60ce8 · 5a60ce8
1 parent 8aa88d2
commit 5a60ce8
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/lambda/translcore.ml b/lambda/translcore.ml
@@ -734,6 +734,7 @@ and transl_apply ~scopes
           match build_apply handle ((Lvar id_arg, optional)::args') l with
             Lfunction{kind = Curried; params = ids; return;
                       body = lam; attr; loc}
+               when List.length ids < Lambda.max_arity () ->
               lfunction ~kind:Curried
                         ~params:((id_arg, Pgenval)::ids)
                         ~return