Removing dead code in Genarg.

2 files changed, 0 insertions, 24 deletions

diff --git a/lib/genarg.ml b/lib/genarg.ml
index 27d7b50e52..0deb34afd7 100644
--- a/lib/genarg.ml
+++ b/lib/genarg.ml
@@ -303,17 +303,3 @@ struct
   | _ -> assert false
 
 end
-
-(** Hackish part *)
-
-let arg0_names = ref (String.Map.empty : string String.Map.t)
- 
-let register_name0 t name = match t with
-| ExtraArg s ->
-  let s = ArgT.repr s in
-  let () = assert (not (String.Map.mem s !arg0_names)) in
-  arg0_names := String.Map.add s name !arg0_names
-| _ -> failwith "register_name0"
-
-let get_name0 name =
-  String.Map.find name !arg0_names
diff --git a/lib/genarg.mli b/lib/genarg.mli
index ac13f545ba..30b96c7000 100644
--- a/lib/genarg.mli
+++ b/lib/genarg.mli
@@ -242,13 +242,3 @@ val wit_list : ('a, 'b, 'c) genarg_type -> ('a list, 'b list, 'c list) genarg_ty
 val wit_opt : ('a, 'b, 'c) genarg_type -> ('a option, 'b option, 'c option) genarg_type
 val wit_pair : ('a1, 'b1, 'c1) genarg_type -> ('a2, 'b2, 'c2) genarg_type ->
   ('a1 * 'a2, 'b1 * 'b2, 'c1 * 'c2) genarg_type
-
-(** {5 Magic used by the parser} *)
-
-val register_name0 : ('a, 'b, 'c) genarg_type -> string -> unit
-(** Used by the extension to give a name to types. The string should be the
-    absolute path of the argument witness, e.g.
-    [register_name0 wit_toto "MyArg.wit_toto"]. *)
-
-val get_name0 : string -> string
-(** Return the absolute path of a given witness. *)