diff options
| author | mayero | 2001-04-19 05:43:24 +0000 |
|---|---|---|
| committer | mayero | 2001-04-19 05:43:24 +0000 |
| commit | 4c65f6f3a7e98e224a5328d182888f2f26809927 (patch) | |
| tree | ae3160e8644fe439ae8163e275bdd7f1046f9b80 | |
| parent | 8bd7161251dc0b8e27e4d117ad0e73edf60bbb67 (diff) | |
*** empty log message ***
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1610 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | parsing/g_tactic.ml4 | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/parsing/g_tactic.ml4 b/parsing/g_tactic.ml4 index 293fe9109b..d9a8e13189 100644 --- a/parsing/g_tactic.ml4 +++ b/parsing/g_tactic.ml4 @@ -247,7 +247,12 @@ GEXTEND Gram <:ast< (RECCLAUSE $name (FUNVAR ($LIST $it)) $body) >> ] ] ; match_pattern: - [ [ id = identarg; "["; pc = constrarg; "]" -> <:ast< (SUBTERM $id $pc) >> + [ [ id = constrarg; "["; pc = constrarg; "]" -> + (match id with + | Coqast.Node(_,"COMMAND",[Coqast.Nvar(_,s)]) -> + <:ast< (SUBTERM ($VAR $s) $pc) >> + | _ -> + errorlabstrm "Gram.match_pattern" [<'sTR "Not a correct SUBTERM">]) | "["; pc = constrarg; "]" -> <:ast< (SUBTERM $pc) >> | pc = constrarg -> <:ast< (TERM $pc) >> ] ] ; |