From 4501e36e166eb6c526aad38872c5cc83f998e5c0 Mon Sep 17 00:00:00 2001 From: Guillaume Bury Date: Fri, 22 Nov 2024 16:46:12 +0100 Subject: [PATCH] fix error --- middle_end/flambda2/compare/compare.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/middle_end/flambda2/compare/compare.ml b/middle_end/flambda2/compare/compare.ml index b7bdfcef4e1..95224eba9b4 100644 --- a/middle_end/flambda2/compare/compare.ml +++ b/middle_end/flambda2/compare/compare.ml @@ -419,7 +419,7 @@ and subst_let_cont env (let_cont_expr : Let_cont_expr.t) = ~f:(fun ~invariant_params ~body handlers -> let body = subst_expr env body in let handlers = - Continuation.Map.map_sharing (subst_cont_handler env) + Continuation.Lmap.map_sharing (subst_cont_handler env) (handlers |> Continuation_handlers.to_map) in Let_cont_expr.create_recursive handlers ~invariant_params ~body)