From 920926c8bded37b057ba0c59f0144a085a1bb35e Mon Sep 17 00:00:00 2001
From: soubiran
Date: Wed, 26 Mar 2008 13:22:04 +0000
Subject: Correction d'un bug sur Import/Export : ces fonctionnalites sont
 gerees en-dehors du noyau et sont donc independantes des substitutions
 engendrees par les alias de module.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10720 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 library/declaremods.ml | 1 +
 1 file changed, 1 insertion(+)

(limited to 'library')

diff --git a/library/declaremods.ml b/library/declaremods.ml
index 80944b2e6e..7c228741b4 100644
--- a/library/declaremods.ml
+++ b/library/declaremods.ml
@@ -770,6 +770,7 @@ let classify_import (_,(export,_ as obj)) =
   if export then Substitute obj else Dispose
 
 let subst_import (_,subst,(export,mp as obj)) =
+  let subst = remove_alias subst in
   let mp' = subst_mp subst mp in
     if mp'==mp then obj else
       (export,mp')
-- 
cgit v1.2.3