diff options
| author |  soubiran <soubiran@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-02-15 14:49:51 +0000 |
|---|---|---|
| committer | soubiran <soubiran@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-02-15 14:49:51 +0000 |
| commit | d92ca6d672abe32b5e590fb27fe85993af606419 (patch) | |
| tree | 94574a0a043ead0e3ab20efc039affee98be07d4 /kernel/safe_typing.ml | |
| parent | 7ae0f3d9d1b18dbaed88e5098a361b3b412482d4 (diff) | |
Patch bug #1799
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10573 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/safe_typing.ml')
| -rw-r--r-- | kernel/safe_typing.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/safe_typing.ml b/kernel/safe_typing.ml index 368879713..28e6fb8c7 100644 --- a/kernel/safe_typing.ml +++ b/kernel/safe_typing.ml @@ -363,7 +363,7 @@ let end_module l restype senv = List.fold_left (fun env (mp,mb) -> full_add_module mp mb env) newenv - senv.loads + (List.rev senv.loads) in let newenv = full_add_module mp mb newenv @@ -534,7 +534,7 @@ let end_modtype l senv = List.fold_left (fun env (mp,mb) -> full_add_module mp mb env) newenv - senv.loads + (List.rev senv.loads) in let newenv = add_modtype_constraints newenv mtb |