diff options
Diffstat (limited to 'library/nametab.ml')
-rw-r--r-- | library/nametab.ml | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/library/nametab.ml b/library/nametab.ml index 390789852..0f7b022de 100644 --- a/library/nametab.ml +++ b/library/nametab.ml @@ -523,9 +523,6 @@ let shortest_qualid_of_tactic kn = KnTab.shortest_qualid Id.Set.empty sp !the_tactictab let pr_global_env env ref = - (* Il est important de laisser le let-in, car les streams s'évaluent - paresseusement : il faut forcer l'évaluation pour capturer - l'éventuelle levée d'une exception (le cas échoit dans le debugger) *) 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 |