From 568a8fe47f83ab08257239ee098eaf83a32eabbe Mon Sep 17 00:00:00 2001
From: ppedrot
Date: Wed, 19 Jun 2013 19:59:13 +0000
Subject: Moving wit_unit to Stdarg.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16595 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 interp/stdarg.ml  | 5 +++++
 interp/stdarg.mli | 2 ++
 2 files changed, 7 insertions(+)

(limited to 'interp')

diff --git a/interp/stdarg.ml b/interp/stdarg.ml
index cfc65bde8b..1216e06b1b 100644
--- a/interp/stdarg.ml
+++ b/interp/stdarg.ml
@@ -15,6 +15,11 @@ let def_uniform name pr = { (default_uniform_arg0 name) with
   arg0_tprint = pr;
 }
 
+let wit_unit : unit uniform_genarg_type =
+  let pr_unit _ = str "()" in
+  let arg = def_uniform "unit" pr_unit in
+  make0 None "unit" arg
+
 let wit_bool : bool uniform_genarg_type =
   let pr_bool b = str (if b then "true" else "false") in
   let arg = def_uniform "bool" pr_bool in
diff --git a/interp/stdarg.mli b/interp/stdarg.mli
index 276c4c54ca..a82a9666b5 100644
--- a/interp/stdarg.mli
+++ b/interp/stdarg.mli
@@ -10,6 +10,8 @@
 
 open Genarg
 
+val wit_unit : unit uniform_genarg_type
+
 val wit_bool : bool uniform_genarg_type
 
 val wit_int : int uniform_genarg_type
-- 
cgit v1.2.3