X-Git-Url: http://plrg.eecs.uci.edu/git/?p=oota-llvm.git;a=blobdiff_plain;f=bindings%2Focaml%2Ftarget%2Fllvm_target.ml;h=aadd90f5518af1fbca715ef553d6c4ff30d91cd6;hp=974bd49c2813bc10529ae5c22c38cad08df2bbe6;hb=e3227ca292d81c587c8db62b761a24b21ff12ccf;hpb=360c7ed497b73fe71e646ab094b789fe6d4c98f6

diff --git a/bindings/ocaml/target/llvm_target.ml b/bindings/ocaml/target/llvm_target.ml
index 974bd49c281..aadd90f5518 100644
--- a/bindings/ocaml/target/llvm_target.ml
+++ b/bindings/ocaml/target/llvm_target.ml
@@ -47,8 +47,7 @@ end
 
 exception Error of string
 
-external register_exns : exn -> unit = "llvm_register_target_exns"
-let _ = register_exns (Error "")
+let () = Callback.register_exception "Llvm_target.Error" (Error "")
 
 module DataLayout = struct
   type t