diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2005-02-12 11:31:04 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2005-02-12 11:31:04 +0000 |
commit | 3c5903f1c2057c98ff2d1864d1d6727040b5f8fc (patch) | |
tree | 891cf73650d983e1e1ed823c08bb0890ed4277e6 /kernel/vconv.ml | |
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 'kernel/vconv.ml')
-rw-r--r-- | kernel/vconv.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/vconv.ml b/kernel/vconv.ml index a2c2cc770..5ef84adc7 100644 --- a/kernel/vconv.ml +++ b/kernel/vconv.ml @@ -299,7 +299,7 @@ let constructor_instantiate mind mib params ctyp = let sp = List.rev (Array.to_list params) in substl sp ctyp2 let destApplication t = - try destApplication t + try destApp t with _ -> t,[||] let construct_of_constr_const env tag typ = |