diff options
| author | filliatr | 1999-09-07 15:47:52 +0000 |
|---|---|---|
| committer | filliatr | 1999-09-07 15:47:52 +0000 |
| commit | be1e4a8b31b3082b6d70e77cce64c6515afcbfe7 (patch) | |
| tree | b0052cf4d973d02ecb233685e899b4ed64cf7d64 /kernel | |
| parent | 457e59bd5638c18302caeef281132579bd7dbece (diff) | |
- bug: une fois typés, les arités des constructeurs étaient rangées
en ordre inverse (fold_left au lieu de fold_right)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@44 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/typing.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/kernel/typing.ml b/kernel/typing.ml index 03c160e1bf..f3928b2fdc 100644 --- a/kernel/typing.ml +++ b/kernel/typing.ml @@ -381,11 +381,11 @@ let is_unit env_par nparams ar spec = let type_one_inductive i env_ar env_par nparams ninds (id,ar,cnames,spec) = let (lna,vc) = decomp_all_DLAMV_name spec in let (env',(issmall,jlc)) = - List.fold_left - (fun (env,(small,jl)) c -> + List.fold_right + (fun c (env,(small,jl)) -> let (env',(sm,jc)) = type_one_constructor env nparams ar c in (env', (small && sm,jc::jl))) - (env_ar,(true,[])) (Array.to_list vc) + (Array.to_list vc) (env_ar,(true,[])) in let castlc = List.map cast_of_judgment jlc in let spec' = put_DLAMSV lna (Array.of_list castlc) in |