diff options
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/constrextern.ml | 1 | ||||
| -rw-r--r-- | interp/constrextern.mli | 1 |
2 files changed, 1 insertions, 1 deletions
diff --git a/interp/constrextern.ml b/interp/constrextern.ml index bd8e78c0f5..b3810bb6d4 100644 --- a/interp/constrextern.ml +++ b/interp/constrextern.ml @@ -143,7 +143,6 @@ let debug_global_reference_printer = let in_debugger = ref false let set_debug_global_reference_printer f = - in_debugger := true; debug_global_reference_printer := f let extern_reference loc vars r = diff --git a/interp/constrextern.mli b/interp/constrextern.mli index e1fdd068b7..2a53eb85fe 100644 --- a/interp/constrextern.mli +++ b/interp/constrextern.mli @@ -53,6 +53,7 @@ val print_projections : bool ref (** Debug printing options *) val set_debug_global_reference_printer : (loc -> global_reference -> reference) -> unit +val in_debugger : bool ref (** This governs printing of implicit arguments. If [with_implicits] is on and not [with_arguments] then implicit args are printed prefixed |