diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-03-19 18:55:01 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-03-19 18:55:50 +0100 |
| commit | 27d173f94a68367d91def90c6d287138c733054b (patch) | |
| tree | cf3246635e2ed28c763259ac60d01aa9dc13f3f1 /lib/genarg.ml | |
| parent | 2cf8f76ea6a15d46b57d5c4ecf9513683561e284 (diff) | |
Removing dead code in Genarg.
Diffstat (limited to 'lib/genarg.ml')
| -rw-r--r-- | lib/genarg.ml | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/lib/genarg.ml b/lib/genarg.ml index 27d7b50e5..0deb34afd 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 |