diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2007-10-01 07:27:06 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2007-10-01 07:27:06 +0000 |
| commit | c33c40d62a9b922863706d98e0e40b065107aaff (patch) | |
| tree | bb1c50c140a550492931858164370f77c67f9281 /contrib | |
| parent | 40a581ecfcec8d8dbb5d21f331464dc2b34cadff (diff) | |
Complément nécessaire aux révisions 10156 et 10157
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10158 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib')
| -rw-r--r-- | contrib/interface/xlate.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/contrib/interface/xlate.ml b/contrib/interface/xlate.ml index fdaa2c596..e2ba05348 100644 --- a/contrib/interface/xlate.ml +++ b/contrib/interface/xlate.ml @@ -1203,8 +1203,10 @@ and xlate_tac = | TacClearBody([]) -> assert false | TacClearBody(a::l) -> CT_clear_body (CT_id_ne_list (xlate_hyp a, List.map xlate_hyp l)) - | TacDAuto (a, b) -> + | TacDAuto (a, b, []) -> CT_dauto(xlate_int_or_var_opt_to_int_opt a, xlate_int_opt b) + | TacDAuto (a, b, _) -> + xlate_error "TODO: dauto using" | TacNewDestruct(a,b,c) -> CT_new_destruct (* Julien F. : est-ce correct *) (List.map xlate_int_or_constr a, xlate_using b, |