diff options
| author | coqbot-app[bot] | 2020-11-23 09:25:32 +0000 |
|---|---|---|
| committer | GitHub | 2020-11-23 09:25:32 +0000 |
| commit | 0326d06211c49efb4018d65280cf26340f7344b4 (patch) | |
| tree | 88e4ea74a1511402ce52c1619b78a1a86baf80cb /interp | |
| parent | 9c841105fe2b51305abcba7bd8a574705dbd1adf (diff) | |
| parent | e74d328b32634a44ab049f971ec33fe6cd24df72 (diff) | |
Merge PR #13417: Use nat_or_var in grammar where negative values don't make sense
Reviewed-by: Zimmi48
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/stdarg.ml | 3 | ||||
| -rw-r--r-- | interp/stdarg.mli | 2 |
2 files changed, 5 insertions, 0 deletions
diff --git a/interp/stdarg.ml b/interp/stdarg.ml index 70be55f843..a953ca8898 100644 --- a/interp/stdarg.ml +++ b/interp/stdarg.ml @@ -37,6 +37,9 @@ let wit_pre_ident : string uniform_genarg_type = let wit_int_or_var = make0 ~dyn:(val_tag (topwit wit_int)) "int_or_var" +let wit_nat_or_var = + make0 ~dyn:(val_tag (topwit wit_nat)) "nat_or_var" + let wit_ident = make0 "ident" diff --git a/interp/stdarg.mli b/interp/stdarg.mli index bd34af5543..0a8fdf53b1 100644 --- a/interp/stdarg.mli +++ b/interp/stdarg.mli @@ -35,6 +35,8 @@ val wit_pre_ident : string uniform_genarg_type val wit_int_or_var : (int or_var, int or_var, int) genarg_type +val wit_nat_or_var : (int or_var, int or_var, int) genarg_type + val wit_ident : Id.t uniform_genarg_type val wit_hyp : (lident, lident, Id.t) genarg_type |