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 /contrib/extraction | |
| 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 'contrib/extraction')
| -rw-r--r-- | contrib/extraction/extract_env.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/extraction/extract_env.ml b/contrib/extraction/extract_env.ml index 9e68ec8e4..0e5325a2e 100644 --- a/contrib/extraction/extract_env.ml +++ b/contrib/extraction/extract_env.ml @@ -259,7 +259,7 @@ let mono_environment kn_set = let dir_module_of_id m = try - Nametab.locate_loaded_library (make_short_qualid m) + Nametab.full_name_module (make_short_qualid m) with Not_found -> errorlabstrm "module_message" (str "Module" ++ spc () ++ pr_id m ++ spc () ++ str "not found.") |