diff options
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/extrawit.ml | 8 | ||||
| -rw-r--r-- | parsing/extrawit.mli | 2 |
2 files changed, 5 insertions, 5 deletions
diff --git a/parsing/extrawit.ml b/parsing/extrawit.ml index 8332bd49f9..c20f43bd52 100644 --- a/parsing/extrawit.ml +++ b/parsing/extrawit.ml @@ -37,6 +37,8 @@ let tactic_genarg_level s = else None else None -let is_tactic_genarg = function -| ExtraArgType s -> tactic_genarg_level s <> None -| _ -> false +let () = + for i = 0 to 5 do + let name = Printf.sprintf "Extrawit.wit_tactic%i" i in + Genarg.register_name0 (wit_tactic i) name + done diff --git a/parsing/extrawit.mli b/parsing/extrawit.mli index a74c8a2591..1bd5cdb897 100644 --- a/parsing/extrawit.mli +++ b/parsing/extrawit.mli @@ -24,6 +24,4 @@ val wit_tactic3 : (raw_tactic_expr, glob_tactic_expr, glob_tactic_expr) genarg_t val wit_tactic4 : (raw_tactic_expr, glob_tactic_expr, glob_tactic_expr) genarg_type val wit_tactic5 : (raw_tactic_expr, glob_tactic_expr, glob_tactic_expr) genarg_type -val is_tactic_genarg : argument_type -> bool - val tactic_genarg_level : string -> int option |