diff options
| -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)) |