Incorporating review feedback for GC verifier patch.

[oota-llvm.git] / bindings / ocaml / bitwriter / bitwriter_ocaml.c

diff --git a/bindings/ocaml/bitwriter/bitwriter_ocaml.c b/bindings/ocaml/bitwriter/bitwriter_ocaml.c
index 4abfa9f7b903c84c2d1d1a820c0421dc8665effe..05682c7c864bf148036ec9b47bc4ca84dc705080 100644 (file)
--- a/bindings/ocaml/bitwriter/bitwriter_ocaml.c
+++ b/bindings/ocaml/bitwriter/bitwriter_ocaml.c
@@ -25,7 +25,6 @@
 
 /* Llvm.llmodule -> string -> bool */
 CAMLprim value llvm_write_bitcode_file(value M, value Path) {
-  CAMLparam1(Path);
   int res = LLVMWriteBitcodeToFile((LLVMModuleRef) M, String_val(Path));
-  CAMLreturn(Val_bool(res == 0));
+  return Val_bool(res == 0);
 }