aboutsummaryrefslogtreecommitdiffhomepage
path: root/library
diff options
context:
space:
mode:
authorGravatar Maxime Dénès <mail@maximedenes.fr>2015-09-20 00:58:25 +0200
committerGravatar Maxime Dénès <mail@maximedenes.fr>2015-09-20 00:58:25 +0200
commit40479227cba680496bf358e196e57a9a64f9c65b (patch)
treede7776faed0b376cd70ab3535bf3494ba7030fb9 /library
parent7f0346ea0cc5d76ff7c5aa6f95cfd43769ae21aa (diff)
Nametab: print debug notice only in debug mode.
Diffstat (limited to 'library')
-rw-r--r--library/nametab.ml3
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