diff options
| -rw-r--r-- | library/nametab.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/library/nametab.ml b/library/nametab.ml index 6af1e686b..5b6d7cd98 100644 --- a/library/nametab.ml +++ b/library/nametab.ml @@ -524,7 +524,8 @@ let shortest_qualid_of_tactic kn = let pr_global_env env ref = try str (string_of_qualid (shortest_qualid_of_global env ref)) - with Not_found as e -> prerr_endline "pr_global_env not found"; raise e + with Not_found as e -> + if !Flags.debug then Pp.msg_debug (Pp.str "pr_global_env not found"); raise e let global_inductive r = match global r with |