Coqlib.gen_constant_in_modules can take a qualid string "Foo.bar"

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13808 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 2 insertions, 2 deletions

diff --git a/interp/coqlib.ml b/interp/coqlib.ml
index d6ed355c91..ac1aa1879c 100644
--- a/interp/coqlib.ml
+++ b/interp/coqlib.ml
@@ -42,8 +42,8 @@ let global_of_extended q =
 
 let gen_constant_in_modules locstr dirs s =
   let dirs = List.map make_dir dirs in
-  let id = id_of_string s in
-  let all = Nametab.locate_extended_all (qualid_of_ident id) in
+  let qualid = qualid_of_string s in
+  let all = Nametab.locate_extended_all qualid in
   let all = list_uniquize (list_map_filter global_of_extended all) in
   let these = List.filter (has_suffix_in_dirs dirs) all in
   match these with