aboutsummaryrefslogtreecommitdiff
path: root/interp/stdarg.ml
diff options
context:
space:
mode:
authorPierre-Marie Pédrot2016-03-17 15:10:57 +0100
committerPierre-Marie Pédrot2016-03-17 15:10:57 +0100
commite3e8a4065047e254f5f5c2747227db75f01b7bed (patch)
treec7505db28eee92bc1855b6ee0cf275381b4aa106 /interp/stdarg.ml
parent22c1e7c3f1d86902b1abf2d887e0e9bf93ddb60d (diff)
parent2537e84ba9fa92db6cfd3d7f5e400b1716c31246 (diff)
Removing the default value mechanism for generic arguments.
There was a complicated dedicated code in grammar/ to decide whether a generic argument parsed the empty string. We now only rely on a dynamic decision. This should not affect efficiency, as it is only made once by declaration of ML tactics.
Diffstat (limited to 'interp/stdarg.ml')
-rw-r--r--interp/stdarg.ml10
1 files changed, 5 insertions, 5 deletions
diff --git a/interp/stdarg.ml b/interp/stdarg.ml
index 9c3ed94130..56b995e537 100644
--- a/interp/stdarg.ml
+++ b/interp/stdarg.ml
@@ -9,19 +9,19 @@
open Genarg
let wit_unit : unit uniform_genarg_type =
- make0 None "unit"
+ make0 "unit"
let wit_bool : bool uniform_genarg_type =
- make0 None "bool"
+ make0 "bool"
let wit_int : int uniform_genarg_type =
- make0 None "int"
+ make0 "int"
let wit_string : string uniform_genarg_type =
- make0 None "string"
+ make0 "string"
let wit_pre_ident : string uniform_genarg_type =
- make0 None "preident"
+ make0 "preident"
let () = register_name0 wit_unit "Stdarg.wit_unit"
let () = register_name0 wit_bool "Stdarg.wit_bool"