diff options
| author | herbelin | 2005-02-12 11:31:04 +0000 |
|---|---|---|
| committer | herbelin | 2005-02-12 11:31:04 +0000 |
| commit | 3c5903f1c2057c98ff2d1864d1d6727040b5f8fc (patch) | |
| tree | 891cf73650d983e1e1ed823c08bb0890ed4277e6 /contrib/cc | |
| parent | a1cae7a68093d0e97d1ab16f4e8d6740991a2640 (diff) | |
Uniformisation de destApplication en destApp
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6713 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/cc')
| -rw-r--r-- | contrib/cc/cctac.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/cc/cctac.ml4 b/contrib/cc/cctac.ml4 index 98ea8e4951..799867675f 100644 --- a/contrib/cc/cctac.ml4 +++ b/contrib/cc/cctac.ml4 @@ -126,7 +126,7 @@ let make_prb gl= let build_projection intype outtype (cstr:constructor) special default gls= let env=pf_env gls in let (h,argv) = - try destApplication intype with + try destApp intype with Invalid_argument _ -> (intype,[||]) in let ind=destInd h in let types=Inductiveops.arities_of_constructors env ind in |