fix error

ocaml-flambda · Nov 22, 2024 · 4501e36 · 4501e36
1 parent b23499c
commit 4501e36
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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)