diff options
author | Pierre Letouzey <pierre.letouzey@inria.fr> | 2014-03-05 16:50:04 +0100 |
---|---|---|
committer | Pierre Letouzey <pierre.letouzey@inria.fr> | 2014-03-05 16:57:45 +0100 |
commit | 8fc2509f354b02ec4e0a3eb6fabc329109686c47 (patch) | |
tree | bf7f0738e36d861d57029985ea4f2d3e73d23c15 /lib/genarg.ml | |
parent | adfd437f8ae6aaf893119fa4730edecf067dede7 (diff) |
Remove some dead-code (thanks to ocaml warnings)
The removed code isn't used locally and isn't exported in the signature
Diffstat (limited to 'lib/genarg.ml')
-rw-r--r-- | lib/genarg.ml | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/lib/genarg.ml b/lib/genarg.ml index 306cdbed8..89b6f23de 100644 --- a/lib/genarg.ml +++ b/lib/genarg.ml @@ -154,10 +154,6 @@ let has_type (t, v) u = argument_type_eq t u let unquote x = x -type an_arg_of_this_type = Obj.t - -let in_generic t x = (t, Obj.repr x) - type ('a,'b) abstract_argument_type = argument_type type 'a raw_abstract_argument_type = ('a,rlevel) abstract_argument_type type 'a glob_abstract_argument_type = ('a,glevel) abstract_argument_type @@ -237,7 +233,7 @@ struct (** For now, the following function is quite dummy and should only be applied to an extra argument type, otherwise, it will badly fail. *) - let rec obj t = match t with + let obj t = match t with | ExtraArgType s -> Obj.magic (get_obj0 s) | _ -> assert false |