diff options
author | 2011-03-07 20:55:31 +0000 | |
---|---|---|
committer | 2011-03-07 20:55:31 +0000 | |
commit | 8e4b7319caa0754401c8b868e9ce9490a867d7f1 (patch) | |
tree | efbb3e085ff7f28dc8310bc906189846f69cf32d /pretyping/pretyping.ml | |
parent | a5808860fbabd1239d1116c2f4413d56ff99620f (diff) |
Reverted commit r13893 about propagation of more informative
unification failure messages (it is not fully usable and was not
intended to be committed now, sorry for the noise).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13895 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/pretyping.ml')
-rw-r--r-- | pretyping/pretyping.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/pretyping/pretyping.ml b/pretyping/pretyping.ml index 003f507dc..1ea2dbd00 100644 --- a/pretyping/pretyping.ml +++ b/pretyping/pretyping.ml @@ -640,8 +640,7 @@ module Pretyping_F (Coercion : Coercion.S) = struct try ignore (Reduction.vm_conv Reduction.CUMUL env cty tval); cj with Reduction.NotConvertible -> - error_actual_type_loc loc env !evdref cj tval - (ConversionFailed (env,cty,tval)) + error_actual_type_loc loc env !evdref cj tval end | _ -> inh_conv_coerce_to_tycon loc env evdref cj (mk_tycon tval) in |