diff options
| -rw-r--r-- | ltac/tacinterp.ml | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/ltac/tacinterp.ml b/ltac/tacinterp.ml index 406fd41ad8..fcc29a8302 100644 --- a/ltac/tacinterp.ml +++ b/ltac/tacinterp.ml @@ -2172,4 +2172,14 @@ let _ = optread = (fun () -> get_debug () != Tactic_debug.DebugOff); optwrite = vernac_debug } +let _ = + let open Goptions in + declare_bool_option + { optsync = false; + optdepr = false; + optname = "Ltac debug"; + optkey = ["Debug";"Ltac"]; + optread = (fun () -> get_debug () != Tactic_debug.DebugOff); + optwrite = vernac_debug } + let () = Hook.set Vernacentries.interp_redexp_hook interp_redexp |