diff options
| author | herbelin | 2003-10-07 21:15:59 +0000 |
|---|---|---|
| committer | herbelin | 2003-10-07 21:15:59 +0000 |
| commit | 1e4001ca49c3902c54a98d7efea87c7b12d909fb (patch) | |
| tree | 09409776560420134a8bbf846435f7a6eb679feb /parsing | |
| parent | 2425dd9e258fe67e01bc63b0c2e82db0ecc3cdd6 (diff) | |
Essai de traduction du contraire de 'tacledit bin/coqtop.byte' en 'tac...'
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4537 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/g_vernacnew.ml4 | 14 |
1 files changed, 5 insertions, 9 deletions
diff --git a/parsing/g_vernacnew.ml4 b/parsing/g_vernacnew.ml4 index 3e382e5fd8..d86952e25d 100644 --- a/parsing/g_vernacnew.ml4 +++ b/parsing/g_vernacnew.ml4 @@ -28,7 +28,7 @@ open Vernac_ open Module -let vernac_kw = [ ";"; ","; ">->"; ":<"; "<:" ] +let vernac_kw = [ ";"; ","; ">->"; ":<"; "<:"; "..." ] let _ = if not !Options.v7 then List.iter (fun s -> Lexer.add_token ("",s)) vernac_kw @@ -59,22 +59,18 @@ GEXTEND Gram ; vernac: LAST [ [ gln = OPT[n=natural; ":" -> n]; - tac = subgoal_command; "." -> tac gln ] ] + tac = subgoal_command -> tac gln ] ] ; subgoal_command: - [ [ c = check_command -> c - | d = use_default_tac; tac = Tactic.tactic -> + [ [ c = check_command; "." -> c + | tac = Tactic.tactic; use_dft_tac = [ "." -> false | "..." -> true ] -> (fun g -> let g = match g with Some gl -> gl | _ -> 1 in - VernacSolve(g,tac,d)) ] ] + VernacSolve(g,tac,use_dft_tac)) ] ] ; located_vernac: [ [ v = vernac -> loc, v ] ] ; - use_default_tac: - [ [ "!!" -> false - | -> true ] ] - ; END |