From 49ce67400e70b1b80dd17975bb319d214f965e1a Mon Sep 17 00:00:00 2001
From: Pierre Oechsel <pierre.oechsel@gmail.com>
Date: Fri, 2 Jul 2021 14:40:58 +0100
Subject: [PATCH] Apply node created for probe should not be annotated as
 tailcall

---
 ocaml/lambda/translcore.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ocaml/lambda/translcore.ml b/ocaml/lambda/translcore.ml
index 88d703b7d56..4c49e8e1b21 100644
--- a/ocaml/lambda/translcore.ml
+++ b/ocaml/lambda/translcore.ml
@@ -655,7 +655,7 @@ and transl_exp0 ~in_new_scope ~scopes e =
         { ap_func = Lvar funcid;
           ap_args = List.map (fun id -> Lvar id) arg_idents;
           ap_loc = of_location e.exp_loc ~scopes;
-          ap_tailcall = Tailcall_expectation false;
+          ap_tailcall = Default_tailcall;
           ap_inlined = Never_inline;
           ap_specialised = Always_specialise;
           ap_probe = Some {name};