From d5eb564a1ae46409e90a2c6bd6af5b77aa37773e Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Wed, 9 Sep 2020 20:24:46 +0200
Subject: Adding a wit_natural standard argument.

---
 interp/stdarg.ml | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'interp/stdarg.ml')

diff --git a/interp/stdarg.ml b/interp/stdarg.ml
index d5f104b7f8..343f85be03 100644
--- a/interp/stdarg.ml
+++ b/interp/stdarg.ml
@@ -25,6 +25,9 @@ let wit_bool : bool uniform_genarg_type =
 let wit_int : int uniform_genarg_type =
   make0 "int"
 
+let wit_nat : int uniform_genarg_type =
+  make0 "nat"
+
 let wit_string : string uniform_genarg_type =
   make0 "string"
 
@@ -59,6 +62,7 @@ let wit_clause_dft_concl  =
 (** Aliases for compatibility *)
 
 let wit_integer = wit_int
+let wit_natural = wit_nat
 let wit_preident = wit_pre_ident
 let wit_reference = wit_ref
 let wit_global = wit_ref
-- 
cgit v1.2.3