diff options
| author | bertot | 2004-02-16 13:10:13 +0000 |
|---|---|---|
| committer | bertot | 2004-02-16 13:10:13 +0000 |
| commit | f76deb76f62e1bf30b2f7a160876c395d566971a (patch) | |
| tree | cd2d08103469d84a60225805430ecad8b5bf09b3 /contrib/interface/vtp.ml | |
| parent | 9b1e7965124422084a45505a6a354ed4b28f68ab (diff) | |
accomodate the .. extension
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5350 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/interface/vtp.ml')
| -rw-r--r-- | contrib/interface/vtp.ml | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/contrib/interface/vtp.ml b/contrib/interface/vtp.ml index ddf005dbd7..4c3288494e 100644 --- a/contrib/interface/vtp.ml +++ b/contrib/interface/vtp.ml @@ -559,10 +559,11 @@ and fCOMMAND = function | CT_show_proofs -> fNODE "show_proofs" 0 | CT_show_script -> fNODE "show_script" 0 | CT_show_tree -> fNODE "show_tree" 0 -| CT_solve(x1, x2) -> +| CT_solve(x1, x2, x3) -> fINT x1; fTACTIC_COM x2; - fNODE "solve" 2 + fDOTDOT_OPT x3; + fNODE "solve" 3 | CT_suspend -> fNODE "suspend" 0 | CT_syntax_macro(x1, x2, x3) -> fID x1; @@ -708,6 +709,9 @@ and fDESTRUCT_LOCATION = function | CT_conclusion_location -> fNODE "conclusion_location" 0 | CT_discardable_hypothesis -> fNODE "discardable_hypothesis" 0 | CT_hypothesis_location -> fNODE "hypothesis_location" 0 +and fDOTDOT_OPT = function +| CT_coerce_NONE_to_DOTDOT_OPT x -> fNONE x +| CT_dotdot -> fNODE "dotdot" 0 and fEQN = function | CT_eqn(x1, x2) -> fMATCH_PATTERN_NE_LIST x1; |