diff options
author | soubiran <soubiran@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-12-03 16:43:45 +0000 |
---|---|---|
committer | soubiran <soubiran@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-12-03 16:43:45 +0000 |
commit | a0299ca93ea3a0243e10caec1dc6e63e464178db (patch) | |
tree | 0f1f3f5ed914dd6583fae1dd986696c41d6271ab /kernel/mod_subst.ml | |
parent | 52728490e3a4f5cf8171e4a8a009f213d5f15636 (diff) |
declaremods.ml <--- code factoring
mod_subst <--- Some inlining informations was propagated into module implementation whereas those informations should stay in module type
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12558 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/mod_subst.ml')
-rw-r--r-- | kernel/mod_subst.ml | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/kernel/mod_subst.ml b/kernel/mod_subst.ml index 5f81ddb4d..75a167f6c 100644 --- a/kernel/mod_subst.ml +++ b/kernel/mod_subst.ml @@ -527,10 +527,13 @@ let mp_in_key mp key = let subset_prefixed_by mp resolver = let prefixmp key hint resolv = - if mp_in_key mp key then - Deltamap.add key hint resolv - else - resolv + match hint with + | Inline _ -> resolv + | _ -> + if mp_in_key mp key then + Deltamap.add key hint resolv + else + resolv in Deltamap.fold prefixmp resolver empty_delta_resolver |