diff options
| -rw-r--r-- | parsing/g_ltacnew.ml4 | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/parsing/g_ltacnew.ml4 b/parsing/g_ltacnew.ml4 index b56b310bde..265675df8d 100644 --- a/parsing/g_ltacnew.ml4 +++ b/parsing/g_ltacnew.ml4 @@ -48,8 +48,10 @@ GEXTEND Gram tactic_expr: [ "5" LEFTA [ ta0 = tactic_expr; ";"; ta1 = tactic_expr -> TacThen (ta0, ta1) - | ta = tactic_expr; ";"; "["; lta = LIST0 tactic_expr SEP "|"; "]" -> - TacThens (ta, lta) ] + | ta = tactic_expr; ";"; + "["; lta = LIST0 OPT tactic_expr SEP "|"; "]" -> + let lta = List.map (function None -> TacId "" | Some t -> t) lta in + TacThens (ta, lta) ] | "4" [ ] | "3" RIGHTA |