diff options
author | 2004-12-29 23:15:03 +0000 | |
---|---|---|
committer | 2004-12-29 23:15:03 +0000 | |
commit | e7707310e3138c4fc455d26d5b06f372a5760bdd (patch) | |
tree | d534f49850754e03e6b6d08a2e9d8f828adcd993 /parsing/g_tactic.ml4 | |
parent | bcd079c448c946270cbf3c5323ac8cf185450b5f (diff) |
ExtraRedExpr maintenant sans argument: pas très souple mais au moins convient pour l'exemple de MapleMode qui lui ne passait pas quand un argument était exigé
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6526 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing/g_tactic.ml4')
-rw-r--r-- | parsing/g_tactic.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/parsing/g_tactic.ml4 b/parsing/g_tactic.ml4 index 827409218..c578c66b3 100644 --- a/parsing/g_tactic.ml4 +++ b/parsing/g_tactic.ml4 @@ -185,7 +185,7 @@ GEXTEND Gram | IDENT "Fold"; cl = LIST1 constr -> Fold cl | IDENT "Pattern"; pl = LIST1 pattern_occ -> Pattern pl | IDENT "Vm_compute" -> CbvVm - | s = IDENT; c = constr -> ExtraRedExpr (s,c) ] ] + | s = IDENT; OPT constr -> ExtraRedExpr s ] ] ; hypident: [ [ id = id_or_meta -> id,[],(InHyp,ref None) |