diff options
| author | ppedrot | 2013-07-02 14:46:47 +0000 |
|---|---|---|
| committer | ppedrot | 2013-07-02 14:46:47 +0000 |
| commit | 89abe2a141b3baa11bf0e8bcdecaf68220251c6e (patch) | |
| tree | 70e457c39239837c84435d3146af35d1190a4225 /parsing | |
| parent | 20f84d1e80a934c50bae81b1a017f12f26997ded (diff) | |
Removed the ad-hod handling of wit_tacticn.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16615 85f007b7-540e-0410-9357-904b9bb8a0f7
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 |