From 7f9b9db2e033fb6da5e3447925f929b3cf3d6b73 Mon Sep 17 00:00:00 2001 From: William S Fulton Date: Tue, 21 Mar 2017 07:45:19 +0000 Subject: [PATCH] Fix ocaml warning Warning 20: this argument will not be used by the function. --- Lib/ocaml/swig.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Lib/ocaml/swig.ml b/Lib/ocaml/swig.ml index 5dc2de7be..d0658e78c 100644 --- a/Lib/ocaml/swig.ml +++ b/Lib/ocaml/swig.ml @@ -156,4 +156,4 @@ let class_master_list = Hashtbl.create 20 let register_class_byname nm co = Hashtbl.replace class_master_list nm (Obj.magic co) 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)