diff options
| author |  msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2007-03-19 18:01:24 +0000 |
|---|---|---|
| committer | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2007-03-19 18:01:24 +0000 |
| commit | 2e0f0ed50e0973b92f9d43daa31cb77d59b590ea (patch) | |
| tree | 7f5acddb845405f68261116188f8f262060adfd8 | |
| parent | 38ff8d2b59a481ba489400ea194fdd78c6c2d5e1 (diff) | |
Forgot to update to new cast
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9719 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | contrib/interface/xlate.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/contrib/interface/xlate.ml b/contrib/interface/xlate.ml index 0bcaa47eb..57116c070 100644 --- a/contrib/interface/xlate.ml +++ b/contrib/interface/xlate.ml @@ -402,9 +402,10 @@ and (xlate_formula:Topconstr.constr_expr -> Ascent.ct_FORMULA) = function | CDynamic (_, _) -> assert false | CDelimiters (_, key, num) -> CT_num_encapsulator(CT_num_type key , xlate_formula num) - | CCast (_, e,_, t) -> + | CCast (_, e, CastConv (_, t)) -> CT_coerce_TYPED_FORMULA_to_FORMULA (CT_typed_formula(xlate_formula e, xlate_formula t)) + | CCast (_, e, CastCoerce) -> assert false | CPatVar (_, (_,i)) when is_int_meta i -> CT_coerce_ID_to_FORMULA(CT_metac (CT_int (int_of_meta i))) | CPatVar (_, (false, s)) -> |