From 177fd2107c451c477ac839af339c698e10b9df18 Mon Sep 17 00:00:00 2001
From: letouzey
Date: Mon, 31 Jan 2011 16:58:50 +0000
Subject: 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
---
 interp/coqlib.ml | 4 ++--
 1 file 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
-- 
cgit v1.2.3