From ef4d23a5cf8193ecd172bbae6498722de8b6fb2a Mon Sep 17 00:00:00 2001
From: herbelin
Date: Thu, 14 Dec 2000 01:34:22 +0000
Subject: On force l'évaluation du qualid_of_global qui peut échouer dans le
 débugger

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1094 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 parsing/printer.ml | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/parsing/printer.ml b/parsing/printer.ml
index 5169b8d3b3..79dbad6e0e 100644
--- a/parsing/printer.ml
+++ b/parsing/printer.ml
@@ -18,7 +18,11 @@ let emacs_str s = if !Options.print_emacs then s else ""
 let dfltpr ast = [< 'sTR"#GENTERM " ; print_ast ast >];;
 
 let pr_global ref =
-  [< 'sTR (string_of_qualid (Global.qualid_of_global 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) *)
+  let qid = Global.qualid_of_global ref in
+  [< 'sTR (string_of_qualid qid) >]
 
 let global_const_name sp =
   try pr_global (ConstRef sp)
-- 
cgit v1.2.3