diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-10-24 15:33:10 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-10-24 15:33:10 +0000 |
| commit | 1ee15e8b96e568f77096c23c56534899370abb80 (patch) | |
| tree | 21297ee429d05a63e8a60cc3495254f2ae821a01 | |
| parent | b362e8108e3b2899229a70b0559315347d33a3c1 (diff) | |
Extension de fresh (suite)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9272 85f007b7-540e-0410-9357-904b9bb8a0f7
| -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 de17ca0b6..6c9e8239d 100644 --- a/contrib/interface/xlate.ml +++ b/contrib/interface/xlate.ml @@ -726,7 +726,9 @@ and (xlate_call_or_tacarg:raw_tactic_arg -> ct_TACTIC_COM) = | Reference (Ident (_,s)) -> ident_tac s | ConstrMayEval(ConstrTerm a) -> CT_formula_marker(xlate_formula a) - | TacFreshId s -> CT_fresh(ctf_STRING_OPT s) + | TacFreshId [] -> CT_fresh(ctf_STRING_OPT None) + | TacFreshId [ArgArg s] -> CT_fresh(ctf_STRING_OPT (Some s)) + | TacFreshId _ -> xlate_error "TODO: fresh with many args" | t -> xlate_error "TODO LATER: result other than tactic or constr" and xlate_red_tactic = |