diff options
| author |  barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-10-10 15:42:22 +0000 |
|---|---|---|
| committer | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-10-10 15:42:22 +0000 |
| commit | cc1b83979b9978fb2979ae8cda86daddaa62badb (patch) | |
| tree | a13cc08f374cff641aea74a027cf6b7a85ffeb06 /parsing/g_ltacnew.ml4 | |
| parent | db1658f0837918e27885c827cc29392068775fa6 (diff) | |
changement nouvelle syntaxe (pt fixes)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4559 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing/g_ltacnew.ml4')
| -rw-r--r-- | parsing/g_ltacnew.ml4 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/parsing/g_ltacnew.ml4 b/parsing/g_ltacnew.ml4 index 672aeb3b6..9d8dea149 100644 --- a/parsing/g_ltacnew.ml4 +++ b/parsing/g_ltacnew.ml4 @@ -142,7 +142,7 @@ GEXTEND Gram | "()" -> TacVoid ] ] ; input_fun: - [ [ IDENT "_" -> None + [ [ "_" -> None | l = base_ident -> Some l ] ] ; let_clause: @@ -171,7 +171,7 @@ GEXTEND Gram match_context_rule: [ [ "["; largs = LIST0 match_hyps SEP ","; "|-"; mp = match_pattern; "]"; "=>"; te = tactic_expr -> Pat (largs, mp, te) - | IDENT "_"; "=>"; te = tactic_expr -> All te ] ] + | "_"; "=>"; te = tactic_expr -> All te ] ] ; match_context_list: [ [ mrl = LIST1 match_context_rule SEP "|" -> mrl @@ -179,7 +179,7 @@ GEXTEND Gram ; match_rule: [ [ "["; mp = match_pattern; "]"; "=>"; te = tactic_expr -> Pat ([],mp,te) - | IDENT "_"; "=>"; te = tactic_expr -> All te ] ] + | "_"; "=>"; te = tactic_expr -> All te ] ] ; match_list: [ [ mrl = LIST1 match_rule SEP "|" -> mrl |