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 /interp/stdarg.ml | |
| parent | a8a0285c153cab810dedba6bae5a2a6a6d2c4333 (diff) | |
Use nat_or_var where negative values don't make sense
Diffstat (limited to 'interp/stdarg.ml')
| -rw-r--r-- | interp/stdarg.ml | 3 |
1 files changed, 3 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" |