diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-03-31 21:13:08 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-03-31 21:13:08 +0000 |
| commit | 107de0174cf738e3eb9ac32a514c2773709315ec (patch) | |
| tree | cd6a4ff4e37cd5e6d371c71a3f8939c3259dade5 /library/libnames.ml | |
| parent | cfadf920f60ae2977bd1f3c2bf0137f607c76467 (diff) | |
Mise en place d'un traducteur de noms v7->v8
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3823 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library/libnames.ml')
| -rw-r--r-- | library/libnames.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/libnames.ml b/library/libnames.ml index 4440780a5..00a28b71f 100644 --- a/library/libnames.ml +++ b/library/libnames.ml @@ -131,8 +131,8 @@ let repr_path { dirpath = pa; basename = id } = (pa,id) (* parsing and printing of section paths *) let string_of_path sp = let (sl,id) = repr_path sp in - if repr_dirpath sl = [] then string_of_id id - else (string_of_dirpath sl) ^ "." ^ (string_of_id id) + if repr_dirpath sl = [] then string_of_v7_id id + else (string_of_dirpath sl) ^ "." ^ (string_of_v7_id id) let sp_ord sp1 sp2 = let (p1,id1) = repr_path sp1 |