diff options
| author | Pierre-Marie Pédrot | 2021-01-10 15:51:14 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2021-01-10 15:51:14 +0100 |
| commit | ffb482f0c18bff2c65dcc9cd2b65bd20b398245d (patch) | |
| tree | 5c5678f7d9a9eee97b5a558f570448a4cbfb5b1e /plugins | |
| parent | 723440611965ccdecfd56e61c8f1f8618a08841d (diff) | |
| parent | 70b18cd58243c99b13eefbd9c593b0f3929c742c (diff) | |
Merge PR #13469: Use nat_or_var for fail/gfail
Ack-by: Zimmi48
Reviewed-by: ppedrot
Diffstat (limited to 'plugins')
| -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) } |