diff options
| author | herbelin | 2000-12-14 01:34:22 +0000 |
|---|---|---|
| committer | herbelin | 2000-12-14 01:34:22 +0000 |
| commit | ef4d23a5cf8193ecd172bbae6498722de8b6fb2a (patch) | |
| tree | 8dc17d4d523200488ed8511d87c71cb85de6dd5d /parsing/printer.ml | |
| parent | 7a58065ec3277def7fe5a39443b4ba3169fbb1b0 (diff) | |
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
Diffstat (limited to 'parsing/printer.ml')
| -rw-r--r-- | parsing/printer.ml | 6 |
1 files changed, 5 insertions, 1 deletions
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) |