Merge PR #11380: [exninfo] Deprecate aliases for exception re-raising.

Reviewed-by: Matafou
Reviewed-by: ppedrot

1 files changed, 2 insertions, 2 deletions

diff --git a/lib/system.ml b/lib/system.ml
index 2d68fd2fdf..9089eda564 100644
--- a/lib/system.ml
+++ b/lib/system.ml
@@ -248,9 +248,9 @@ let extern_state magic filename val_0 =
       marshal_out channel val_0;
       close_out channel
     with reraise ->
-      let reraise = CErrors.push reraise in
+      let reraise = Exninfo.capture reraise in
       let () = try_remove filename in
-      iraise reraise
+      Exninfo.iraise reraise
   with Sys_error s ->
     CErrors.user_err ~hdr:"System.extern_state" (str "System error: " ++ str s)