From e92adbb94997b05a5162f8cfc83f0a0aa57086c4 Mon Sep 17 00:00:00 2001
From: clrenard
Date: Tue, 18 Nov 2003 19:58:45 +0000
Subject: correction suite ajout nouvelles tactiques

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4945 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 contrib/interface/xlate.ml | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'contrib/interface')

diff --git a/contrib/interface/xlate.ml b/contrib/interface/xlate.ml
index 5e0bc4d9f9..a904753f16 100644
--- a/contrib/interface/xlate.ml
+++ b/contrib/interface/xlate.ml
@@ -1102,6 +1102,7 @@ and coerce_genarg_to_TARG x =
 						 (out_gen
 						    rawwit_casted_open_constr x)))
   | ConstrWithBindingsArgType -> xlate_error "TODO: constr with bindings"
+  | WithBindingsArgType -> xlate_error "TODO: with bindings"
   | RedExprArgType -> xlate_error "TODO: red expr as generic argument"
   | List0ArgType l -> xlate_error "TODO: lists of generic arguments"
   | List1ArgType l -> xlate_error "TODO: non empty lists of generic arguments"
@@ -1183,6 +1184,7 @@ let coerce_genarg_to_VARG x =
       CT_coerce_TACTIC_OPT_to_VARG (CT_coerce_TACTIC_COM_to_TACTIC_OPT t)
   | CastedOpenConstrArgType -> xlate_error "TODO: open constr"
   | ConstrWithBindingsArgType -> xlate_error "TODO: constr with bindings"
+  | WithBindingsArgType -> xlate_error "TODO: with bindings"
   | RedExprArgType -> xlate_error "TODO: red expr as generic argument"
   | List0ArgType l -> xlate_error "TODO: lists of generic arguments"
   | List1ArgType l -> xlate_error "TODO: non empty lists of generic arguments"
-- 
cgit v1.2.3