diff options
| author | herbelin | 2004-03-17 11:29:13 +0000 |
|---|---|---|
| committer | herbelin | 2004-03-17 11:29:13 +0000 |
| commit | 3b9638f22550c2eaf4da81d7a4aac1633681e565 (patch) | |
| tree | 70343723334b64c05f9daeea63adf0a1aa8a6496 | |
| parent | f97b4b1e33fba9577b8a7a92a5c01b2ca10451f6 (diff) | |
Parsing des V8Notation avec motif recursif en v7
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5520 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | parsing/g_constr.ml4 | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/parsing/g_constr.ml4 b/parsing/g_constr.ml4 index 2f606ffd30..280b34c8b5 100644 --- a/parsing/g_constr.ml4 +++ b/parsing/g_constr.ml4 @@ -198,7 +198,9 @@ GEXTEND Gram IDENT "if"; c1 = constr; IDENT "then"; c2 = constr; IDENT "else"; c3 = constr -> - COrderedCase (loc, IfStyle, Some p, c1, [c2; c3]) ] + COrderedCase (loc, IfStyle, Some p, c1, [c2; c3]) + | ".."; c = operconstr LEVEL "0"; ".." -> + CAppExpl (loc,(None,Ident (loc,Topconstr.ldots_var)),[c]) ] | "0" RIGHTA [ "?" -> CHole loc | "?"; n = Prim.natural -> CPatVar (loc, (false,Pattern.patvar_of_int n)) |