From 1a4232e12b73e6d0d37a3090d320216b8f0e9a27 Mon Sep 17 00:00:00 2001 From: Olly Betts Date: Wed, 9 May 2007 02:38:23 +0000 Subject: [PATCH] Removed unused extra parameter in call to Printf(). git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@9803 626c5289-ae23-0410-ae9c-e8d60b6d4f22 --- Source/Modules/ocaml.cxx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Source/Modules/ocaml.cxx b/Source/Modules/ocaml.cxx index 0c1964556..5fa077044 100755 --- a/Source/Modules/ocaml.cxx +++ b/Source/Modules/ocaml.cxx @@ -311,7 +311,7 @@ public: Printf(f_int_to_enum, "let _ = Callback.register \"%s_int_to_enum\" int_to_enum\n", module); Printf(f_mlibody, "val int_to_enum : c_enum_type -> int -> c_obj\n"); Printf(f_init, "#define SWIG_init f_%s_init\n" "%s" "}\n", module, init_func_def); - Printf(f_mlbody, "external f_init : unit -> unit = \"f_%s_init\" ;;\n" "let _ = f_init ()\n", module, module); + Printf(f_mlbody, "external f_init : unit -> unit = \"f_%s_init\" ;;\n" "let _ = f_init ()\n", module); Printf(f_enumtypes_type, "]\n"); Printf(f_enumtypes_value, "]\n\n" "type c_obj = c_enum_value c_obj_t\n");