diff options
| author | Jim Fehrle | 2020-11-18 13:18:04 -0800 |
|---|---|---|
| committer | Théo Zimmermann | 2020-11-20 11:29:46 +0100 |
| commit | e74d328b32634a44ab049f971ec33fe6cd24df72 (patch) | |
| tree | 394780675ccac50c7e4848e7fba465002a17c5f3 /plugins/ssr | |
| parent | a8a0285c153cab810dedba6bae5a2a6a6d2c4333 (diff) | |
Use nat_or_var where negative values don't make sense
Diffstat (limited to 'plugins/ssr')
| -rw-r--r-- | plugins/ssr/ssrparser.mlg | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/ssr/ssrparser.mlg b/plugins/ssr/ssrparser.mlg index ccdf5fa68e..f06b460ee9 100644 --- a/plugins/ssr/ssrparser.mlg +++ b/plugins/ssr/ssrparser.mlg @@ -1792,7 +1792,7 @@ GRAMMAR EXTEND Gram { ssrdotac_expr ~loc noindex m tac clauses } | IDENT "do"; tac = ssrortacarg; clauses = ssrclauses -> { ssrdotac_expr ~loc noindex Once tac clauses } - | IDENT "do"; n = int_or_var; m = ssrmmod; + | IDENT "do"; n = nat_or_var; m = ssrmmod; tac = ssrdotac; clauses = ssrclauses -> { ssrdotac_expr ~loc (mk_index ~loc n) m tac clauses } ] ]; |