diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2018-04-23 15:35:21 +0200 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2018-04-23 15:35:21 +0200 |
commit | c7e8b1542e3636be844a78e2e3aaa2e314b336e1 (patch) | |
tree | 9d577ecb876b3639532785752a17ab82a6ad3d61 | |
parent | 8e9d08f99c2058ed03df6b0135ec1661130e85e5 (diff) | |
parent | a4d496b2424ef991dfdd066e8138c321f62fd017 (diff) |
Merge PR #7244: Making tactic-in-term aware of "Set Ltac Debug"
-rw-r--r-- | CHANGES | 1 | ||||
-rw-r--r-- | plugins/ltac/tacinterp.ml | 3 |
2 files changed, 3 insertions, 1 deletions
@@ -19,6 +19,7 @@ Tactic language - Ltac backtraces now include trace information about tactics called by OCaml-defined tactics. +- Option "Ltac Debug" now applies also to terms built using Ltac functions. Changes from 8.8+beta1 to 8.8.0 =============================== diff --git a/plugins/ltac/tacinterp.ml b/plugins/ltac/tacinterp.ml index 6a4bf577b..84049d4ed 100644 --- a/plugins/ltac/tacinterp.ml +++ b/plugins/ltac/tacinterp.ml @@ -2010,7 +2010,8 @@ let interp_redexp env sigma r = let _ = let eval lfun env sigma ty tac = - let ist = { lfun = lfun; extra = TacStore.empty; } in + let extra = TacStore.set TacStore.empty f_debug (get_debug ()) in + let ist = { lfun = lfun; extra; } in let tac = interp_tactic ist tac in let (c, sigma) = Pfedit.refine_by_tactic env sigma ty tac in (EConstr.of_constr c, sigma) |