diff options
| author |  coq <coq@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-09-20 10:53:18 +0000 |
|---|---|---|
| committer | coq <coq@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-09-20 10:53:18 +0000 |
| commit | dc16cbc0693d98c324c846e162d087d95d60f70d (patch) | |
| tree | dd0d0ab7e38f8d8334827a3711fd62acbd1cd18c /kernel/mod_typing.ml | |
| parent | a406d5f7602f44daf8066faf399acbad3ba124fc (diff) | |
La notation with dependante + affichage dependante de moduels corrige
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3025 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/mod_typing.ml')
| -rw-r--r-- | kernel/mod_typing.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/kernel/mod_typing.ml b/kernel/mod_typing.ml index 2c00fe52e..0fb79376a 100644 --- a/kernel/mod_typing.ml +++ b/kernel/mod_typing.ml @@ -162,7 +162,9 @@ and translate_module env is_definition me = | Some mexpr, _ -> let meq_o = (* do we have a transparent module ? *) try (* TODO: transparent field in module_entry *) - Some (path_of_mexpr mexpr) + match me.mod_entry_type with + | None -> Some (path_of_mexpr mexpr) + | Some _ -> None with | Not_path -> None in |