diff options
| author |  ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-06-19 19:59:13 +0000 |
|---|---|---|
| committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-06-19 19:59:13 +0000 |
| commit | 568a8fe47f83ab08257239ee098eaf83a32eabbe (patch) | |
| tree | ca247f3f0aaaf90553c743067a43d237004bfdf1 /interp | |
| parent | 902d8031333704b8c1f4b73aa72b1a015530f3a4 (diff) | |
Moving wit_unit to Stdarg.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16595 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/stdarg.ml | 5 | ||||
| -rw-r--r-- | interp/stdarg.mli | 2 |
2 files changed, 7 insertions, 0 deletions
diff --git a/interp/stdarg.ml b/interp/stdarg.ml index cfc65bde8..1216e06b1 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 276c4c54c..a82a9666b 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 |