diff options
| author | Pierre-Marie Pédrot | 2020-01-28 13:31:51 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2020-01-28 13:31:51 +0100 |
| commit | b105077dd42e34f19d0849620fec2837e84b4887 (patch) | |
| tree | 217628a17b0d335d8ad453bf7bab34a2b68227fe /lib/flags.ml | |
| parent | 36c61df9435ce382084ddb097ffe0c7b2e220cbb (diff) | |
| parent | c825bc9caf3abb9610310b79f9420688f06bdf54 (diff) | |
Merge PR #11379: [ocaml] Remove Custom Backtrace module in favor of OCaml's
Reviewed-by: ppedrot
Diffstat (limited to 'lib/flags.ml')
| -rw-r--r-- | lib/flags.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/flags.ml b/lib/flags.ml index b87ba46634..ad48024761 100644 --- a/lib/flags.ml +++ b/lib/flags.ml @@ -19,7 +19,7 @@ let with_modified_ref ?(restore=true) r nf f x = if restore || pre == !r then r := old_ref; res with reraise -> - let reraise = Backtrace.add_backtrace reraise in + let reraise = Exninfo.capture reraise in r := old_ref; Exninfo.iraise reraise @@ -37,7 +37,7 @@ let with_options ol f x = let r = f x in let () = List.iter2 (:=) ol vl in r with reraise -> - let reraise = Backtrace.add_backtrace reraise in + let reraise = Exninfo.capture reraise in let () = List.iter2 (:=) ol vl in Exninfo.iraise reraise |