diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2015-09-20 00:58:25 +0200 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2015-09-20 00:58:25 +0200 |
| commit | 40479227cba680496bf358e196e57a9a64f9c65b (patch) | |
| tree | de7776faed0b376cd70ab3535bf3494ba7030fb9 /library/nametab.ml | |
| parent | 7f0346ea0cc5d76ff7c5aa6f95cfd43769ae21aa (diff) | |
Nametab: print debug notice only in debug mode.
Diffstat (limited to 'library/nametab.ml')
| -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 |