diff options
| author | delahaye | 2001-06-19 02:18:22 +0000 |
|---|---|---|
| committer | delahaye | 2001-06-19 02:18:22 +0000 |
| commit | 62dd4d1573cd8267590880b3b278e699cd73bad9 (patch) | |
| tree | 35ded66ddde55daa6529d749b3cca411c51f4611 /parsing | |
| parent | 18f80eaf02378ab877edb31499f240fca715ba9e (diff) | |
Extension des parametres de Clear + Inst
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1794 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/g_constr.ml4 | 4 | ||||
| -rw-r--r-- | parsing/g_tactic.ml4 | 4 |
2 files changed, 3 insertions, 5 deletions
diff --git a/parsing/g_constr.ml4 b/parsing/g_constr.ml4 index 4bb01a6a41..e0a7e61ae7 100644 --- a/parsing/g_constr.ml4 +++ b/parsing/g_constr.ml4 @@ -42,9 +42,7 @@ GEXTEND Gram [ [ c = Prim.ast -> c ] ] ; constr: - [ [ c = constr8 -> c - (*| IDENT "Context"; id = ident; IDENT "With"; c = constr8 -> - <:ast< (CONTEXT $id $c) >>*) + [ [ c = constr8 -> c | IDENT "Inst"; id = ident; "["; c = constr8; "]" -> <:ast< (CONTEXT $id $c) >> | IDENT "Eval"; rtc = Tactic.red_tactic; "in"; c = constr8 -> diff --git a/parsing/g_tactic.ml4 b/parsing/g_tactic.ml4 index 142dac320c..42552fbd15 100644 --- a/parsing/g_tactic.ml4 +++ b/parsing/g_tactic.ml4 @@ -52,7 +52,7 @@ GEXTEND Gram ; idmeta_arg: [ [ id = Constr.ident -> id - | "?"; n = Prim.number -> <:ast< (METAID $n) >> ] ] + | "?"; n = Prim.number -> <:ast< (COMMAND (META $n)) >> ] ] ; qualidarg: [ [ l = Constr.qualid -> <:ast< (QUALIDARG ($LIST l)) >> @@ -364,7 +364,7 @@ GEXTEND Gram | IDENT "Eval"; rtc = Tactic.red_tactic; "in"; c = Constr.constr -> <:ast< (COMMAND (EVAL $c (REDEXP $rtc))) >> | IDENT "Inst"; id = identarg; "["; c = Constr.constr; "]" -> - <:ast< (CONTEXT $id $c) >> + <:ast< (COMMAND (CONTEXT $id $c)) >> | "'"; c = constrarg -> c ] ] ; simple_tactic: |