diff options
| author | Pierre-Marie Pédrot | 2017-09-09 20:43:32 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2017-09-09 20:43:32 +0200 |
| commit | 91a9313fbe24dfb0c9b7fcaa31e3c11bf055450a (patch) | |
| tree | d169f44cd3e38a47a5d2b3111ba54a5cb64ac782 /src | |
| parent | a059c181c3b2d6c1f9c3682c15270c0942430f39 (diff) | |
Fix coq/ltac2#26: Ltac1 gives no backtraces.
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 |