diff options
| author | Pierre-Marie Pédrot | 2020-02-25 10:23:40 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2020-02-25 10:23:40 +0100 |
| commit | a9deb354d00b9a402a63648d1cadf4c2c36bbdd1 (patch) | |
| tree | 6475fd4c64977f4cc9b51599bcf69a978988f651 /user-contrib | |
| parent | 457ea1b8917844e1b955ce419ce08cd0bdc7ccc5 (diff) | |
| parent | 5f5b8a1fdfc71ae93f75d5bfa2d6bb2920a2f4d1 (diff) | |
Merge PR #11489: [exn] remove `raise` taking optional exception information argument
Reviewed-by: ppedrot
Diffstat (limited to 'user-contrib')
| -rw-r--r-- | user-contrib/Ltac2/tac2core.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/user-contrib/Ltac2/tac2core.ml b/user-contrib/Ltac2/tac2core.ml index 431589aa30..196b28b274 100644 --- a/user-contrib/Ltac2/tac2core.ml +++ b/user-contrib/Ltac2/tac2core.ml @@ -161,7 +161,7 @@ let set_bt info = let throw ?(info = Exninfo.null) e = set_bt info >>= fun info -> let info = Exninfo.add info fatal_flag () in - Proofview.tclLIFT (Proofview.NonLogical.raise ~info e) + Proofview.tclLIFT (Proofview.NonLogical.raise (e, info)) let fail ?(info = Exninfo.null) e = set_bt info >>= fun info -> |