diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-11-23 14:07:46 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-11-23 14:07:46 +0000 |
| commit | 95fdf37ed38d64c6358fcf8f5b841a56157db0b8 (patch) | |
| tree | e7c73b28f0968c075decf678df94a4993783537e /parsing | |
| parent | 2456ffc254ef532372e99b269e89d3f8a317ace4 (diff) | |
Affichage des paths avec des '.', print_id -> pr_id, print_sp -> pr_sp
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@929 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/printer.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/parsing/printer.ml b/parsing/printer.ml index 7ee8cbfa5..9f03ccc1e 100644 --- a/parsing/printer.ml +++ b/parsing/printer.ml @@ -21,7 +21,7 @@ let section_path sl s = make_path (List.tl sl) (id_of_string (List.hd sl)) (kind_of_string s) let pr_global ref = - [< 'sTR (string_of_qualid (Nametab.qualid_of_global ref)) >] + [< 'sTR (string_of_qualid (Global.qualid_of_global ref)) >] let global_const_name sp = try pr_global (ConstRef sp) |