diff options
| author | Jim Fehrle | 2020-11-24 15:09:28 -0800 |
|---|---|---|
| committer | Jim Fehrle | 2021-01-07 13:50:58 -0800 |
| commit | 70b18cd58243c99b13eefbd9c593b0f3929c742c (patch) | |
| tree | ecef0a61d175c31a7852034d0fa727cc6891e9f0 /plugins/ltac | |
| parent | 7b946aa196490be8790cd5b46d0860b3bf6e33e1 (diff) | |
Use nat_or_var for fail/gfail
Diffstat (limited to 'plugins/ltac')
| -rw-r--r-- | plugins/ltac/g_ltac.mlg | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/ltac/g_ltac.mlg b/plugins/ltac/g_ltac.mlg index b1b96ea9a7..3da5b2bfc4 100644 --- a/plugins/ltac/g_ltac.mlg +++ b/plugins/ltac/g_ltac.mlg @@ -147,7 +147,7 @@ GRAMMAR EXTEND Gram | IDENT "solve" ; "["; l = LIST0 ltac_expr SEP "|"; "]" -> { TacSolve l } | IDENT "idtac"; l = LIST0 message_token -> { TacId l } - | g=failkw; n = [ n = int_or_var -> { n } | -> { fail_default_value } ]; + | g=failkw; n = [ n = nat_or_var -> { n } | -> { fail_default_value } ]; l = LIST0 message_token -> { TacFail (g,n,l) } | st = simple_tactic -> { st } | a = tactic_value -> { TacArg(CAst.make ~loc a) } |