From dc16cbc0693d98c324c846e162d087d95d60f70d Mon Sep 17 00:00:00 2001
From: coq
Date: Fri, 20 Sep 2002 10:53:18 +0000
Subject: 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
---
 kernel/mod_typing.ml | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'kernel')

diff --git a/kernel/mod_typing.ml b/kernel/mod_typing.ml
index 2c00fe52e1..0fb79376ab 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
-- 
cgit v1.2.3