diff options
Diffstat (limited to 'parsing/printer.ml')
| -rw-r--r-- | parsing/printer.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/parsing/printer.ml b/parsing/printer.ml index d0535fbac5..a325f1a8b1 100644 --- a/parsing/printer.ml +++ b/parsing/printer.ml @@ -21,8 +21,8 @@ let pr_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 s = Global.string_of_global ref in + [< 'sTR s >] let global_const_name sp = try pr_global (ConstRef sp) |