diff options
| author | herbelin | 2003-03-31 21:13:08 +0000 |
|---|---|---|
| committer | herbelin | 2003-03-31 21:13:08 +0000 |
| commit | 107de0174cf738e3eb9ac32a514c2773709315ec (patch) | |
| tree | cd6a4ff4e37cd5e6d371c71a3f8939c3259dade5 /interp | |
| 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 'interp')
| -rw-r--r-- | interp/coqlib.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/interp/coqlib.ml b/interp/coqlib.ml index 7c49c18c27..9127f28e63 100644 --- a/interp/coqlib.ml +++ b/interp/coqlib.ml @@ -20,7 +20,7 @@ let make_dir l = make_dirpath (List.map id_of_string (List.rev l)) let gen_reference locstr dir s = let dir = make_dir ("Coq"::dir) in - let id = id_of_string s in + let id = Nameops.id_of_v7_string s in try Nametab.absolute_reference (Libnames.make_path dir id) with Not_found -> |