diff options
author | coq <coq@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-01-09 16:22:35 +0000 |
---|---|---|
committer | coq <coq@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-01-09 16:22:35 +0000 |
commit | 24d8bd2814c9ef89d918ce81d5a0d30fe0662335 (patch) | |
tree | 548688c4f8ef82c399b29efc93102418c750fc17 /library/nametab.ml | |
parent | c8bfdc5661063b707e6ec8035ea9b3305871059a (diff) |
Export M + Module M <: SIG
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3494 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library/nametab.ml')
-rwxr-xr-x | library/nametab.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/library/nametab.ml b/library/nametab.ml index f6418de3e..cbb3b23e9 100755 --- a/library/nametab.ml +++ b/library/nametab.ml @@ -355,7 +355,7 @@ let locate_module qid = | DirModule (_,(mp,_)) -> mp | _ -> raise Not_found -let locate_loaded_library qid = +let full_name_module qid = match locate_dir qid with | DirModule (dir,_) -> dir | _ -> raise Not_found @@ -428,6 +428,9 @@ let id_of_global ctx_opt ref = let sp_of_syntactic_definition kn = Globrevtab.find (SyntacticDef kn) !the_globrevtab +let dir_of_mp mp = + MPmap.find mp !the_modrevtab + (* Shortest qualid functions **********************************************) |