diff options
author | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2018-04-13 21:12:48 +0200 |
---|---|---|
committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2018-04-13 21:21:33 +0200 |
commit | a4d496b2424ef991dfdd066e8138c321f62fd017 (patch) | |
tree | ace2b6aa6d5fbc33a8d8520653fa9753a3319839 /plugins/ltac | |
parent | f3b84cf63c242623bdcccd30c536e55983971da5 (diff) |
Making tactic-in-term aware of "Set Ltac Debug".
Diffstat (limited to 'plugins/ltac')
-rw-r--r-- | plugins/ltac/tacinterp.ml | 3 |
1 files changed, 2 insertions, 1 deletions
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) |