diff options
| author | herbelin | 2000-06-02 12:35:33 +0000 |
|---|---|---|
| committer | herbelin | 2000-06-02 12:35:33 +0000 |
| commit | 96346162116fda030b177a0816d665f7493b0ef4 (patch) | |
| tree | 809924f96a0786620f752731c57fd1a9a7265c6b | |
| parent | 08e2c28ee98c6a5d235cc9b84bc5690dd9a22666 (diff) | |
':>' est devenu un seul token
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@486 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | parsing/g_vernac.ml4 | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/parsing/g_vernac.ml4 b/parsing/g_vernac.ml4 index bea4c46aa5..f29f4407e0 100644 --- a/parsing/g_vernac.ml4 +++ b/parsing/g_vernac.ml4 @@ -178,6 +178,11 @@ GEXTEND Gram [ [ ">" -> "COERCION" | -> "" ] ] ; + of_type_with_opt_coercion: + [ [ ":>" -> "COERCION" + | ":"; ">" -> "COERCION" + | ":" -> "" ] ] + ; onescheme: [ [ id = identarg; ":="; dep = dep; indid = identarg; IDENT "Sort"; s = sortarg -> @@ -209,7 +214,7 @@ GEXTEND Gram | corec = onecorec -> [corec] ] ] ; field: - [ [ id = identarg; ":"; oc = opt_coercion; c = constrarg -> + [ [ id = identarg; oc = of_type_with_opt_coercion; c = constrarg -> <:ast< (VERNACARGLIST ($STR $oc) $id $c) >> (* | id = identarg; ":>"; c = constrarg -> <:ast< (VERNACARGLIST "COERCION" $id $c) >> *)] ] |