jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix ocaml warning

Browse source 
Warning 20: this argument will not be used by the function.
This commit is contained in:
William S Fulton 2017-03-21 07:45:19 +00:00
commit 7f9b9db2e0
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Lib/ocaml/swig.ml
View file

@ -156,4 +156,4 @@ let class_master_list = Hashtbl.create 20
let register_class_byname nm co = let register_class_byname nm co =
Hashtbl.replace class_master_list nm (Obj.magic co) Hashtbl.replace class_master_list nm (Obj.magic co)
let create_class nm arg = let create_class nm arg =
try (Obj.magic (Hashtbl.find class_master_list nm)) arg with _ -> raise (NoSuchClass nm) try (Obj.magic (Hashtbl.find class_master_list nm)) with _ -> raise (NoSuchClass nm)