diff options
Diffstat (limited to 'interp/stdarg.ml')
| -rw-r--r-- | interp/stdarg.ml | 5 |
1 files changed, 5 insertions, 0 deletions
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 |