diff options
| author | Hugo Herbelin | 2015-06-23 19:24:22 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2016-06-02 14:07:32 +0200 |
| commit | f086aed126f63d2db76be876d387beb8915d381a (patch) | |
| tree | 3ba161b2de8664e2bdea15094a36035496eaed67 | |
| parent | 4a1ed5becf04dfa6dde6d7464d913c6f1f6340ff (diff) | |
Add a synonymous Set Debug Ltac for Set Ltac Debug, for uniformity.
| -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 |