diff options
| author | soubiran | 2008-10-21 11:42:50 +0000 |
|---|---|---|
| committer | soubiran | 2008-10-21 11:42:50 +0000 |
| commit | 3857df7438d49220fc1bfc85883ad33868c35ee7 (patch) | |
| tree | 4a75737d4245934b345a628f806d1c6a96f1d75d /kernel/mod_typing.ml | |
| parent | 05f91178923218b864d8c921dfb557c7c13f14ca (diff) | |
Correction bug #1969.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11483 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/mod_typing.ml')
| -rw-r--r-- | kernel/mod_typing.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/mod_typing.ml b/kernel/mod_typing.ml index 941d219ba7..afde8d557c 100644 --- a/kernel/mod_typing.ml +++ b/kernel/mod_typing.ml @@ -209,7 +209,7 @@ and check_with_aux_mod env mtb with_decl now = | With_Module (_,c) -> With_Module (idl,c) in let cst,_,typ_opt = check_with_aux_mod env' - (type_of_mb env old) new_with_decl false in + (type_of_mb env' old) new_with_decl false in if now then let mtb' = lookup_modtype mp env' in let mp' = scrape_alias mp env' in |