diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/tac2core.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/tac2core.ml b/src/tac2core.ml index 9920b4c805..f19f45fa4e 100644 --- a/src/tac2core.ml +++ b/src/tac2core.ml @@ -895,7 +895,9 @@ let () = let ist = Ltac_plugin.Tacinterp.default_ist () in (** FUCK YOU API *) let ist = { ist with API.Geninterp.lfun = (Obj.magic lfun) } in - (Obj.magic Ltac_plugin.Tacinterp.eval_tactic_ist ist tac : unit Proofview.tactic) >>= fun () -> + let tac = (Obj.magic Ltac_plugin.Tacinterp.eval_tactic_ist ist tac : unit Proofview.tactic) in + let wrap (e, info) = set_bt info >>= fun info -> Proofview.tclZERO ~info e in + Proofview.tclOR tac wrap >>= fun () -> return v_unit in let subst s tac = Genintern.substitute Ltac_plugin.Tacarg.wit_tactic s tac in |