diff options
| author | herbelin | 2006-04-28 07:33:33 +0000 |
|---|---|---|
| committer | herbelin | 2006-04-28 07:33:33 +0000 |
| commit | 0625a1e62f070eb4d13235407eec0b818246b8b9 (patch) | |
| tree | 968f861be1520d2cd353747b00eacdae907c4ac1 /interp | |
| parent | 2915ddeed74a1fb4f44137443742e235d2455931 (diff) | |
Typo dans précédent commit (8755); protection renforcée dans analyse clause in du cases
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8757 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/constrintern.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/interp/constrintern.ml b/interp/constrintern.ml index 1e8c7fdef0..98919082df 100644 --- a/interp/constrintern.ml +++ b/interp/constrintern.ml @@ -963,7 +963,7 @@ let internalise sigma globalenv env allow_soapp lvar c = if List.exists ((<>) Anonymous) parnal then user_err_loc (loc,"", str "The parameters of inductive type must be implicit"); - (loc,ind,nparams,nal) + (loc,ind,nparams,realnal) | _ -> error_bad_inductive_type (loc_of_rawconstr t) in nal, Some indsign | None -> |