+let setErrorCallback = function
+ | None -> I_gdome_xslt.disableErrorCallback ()
+ | Some (callback: string -> unit) ->
+ Callback.register "error_callback" callback;
+ I_gdome_xslt.enableErrorCallback ()
+;;
+let setDebugCallback = function
+ | None -> I_gdome_xslt.disableDebugCallback ()
+ | Some (callback: string -> unit) ->
+ Callback.register "debug_callback" callback;
+ I_gdome_xslt.enableDebugCallback ()
+;;
+