diff options
| author |  delahaye <delahaye@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-07-19 18:09:25 +0000 |
|---|---|---|
| committer | delahaye <delahaye@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-07-19 18:09:25 +0000 |
| commit | 991b14dfa66560047c8d0676cb0995b20d2954e4 (patch) | |
| tree | 6addc0b06c4a6ae64f5b2aa42f05a968b8e5f94b /parsing | |
| parent | 69e7982f775a25ab6909f7927b4d42e0cbee9eed (diff) | |
Changements dans le traitement des qualid's
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1859 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/g_ltac.ml4 | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/parsing/g_ltac.ml4 b/parsing/g_ltac.ml4 index cd6947b5b..b027f8f4d 100644 --- a/parsing/g_ltac.ml4 +++ b/parsing/g_ltac.ml4 @@ -149,7 +149,11 @@ GEXTEND Gram tactic_arg: [ [ "()" -> <:ast< (VOID) >> | n = pure_numarg -> n - | id = identarg -> id + | l = Constr.qualid -> + (match l with + | [id] -> id + | _ -> <:ast< (QUALIDARG ($LIST l)) >>) + | id = METAIDENT -> <:ast< ($VAR $id) >> | "?" -> <:ast< (COMMAND (ISEVAR)) >> | "?"; n = Prim.number -> <:ast< (COMMAND (META $n)) >> | IDENT "Eval"; rtc = Tactic.red_tactic; "in"; c = Constr.constr -> |