Random fixes

[SXSI/xpathcomp.git] / tree.ml

diff --git a/tree.ml b/tree.ml
index 20bd067..7ea6f03 100644 (file)
--- a/tree.ml
+++ b/tree.ml
@@ -132,7 +132,7 @@ external benchmark_jump : tree -> Tag.t -> unit = "caml_benchmark_jump" "noalloc
 
 let benchmark_jump t s = benchmark_jump t.doc s
 
-external benchmark_fcns : tree -> unit = "caml_benchmark_fcns" "noalloc"
+external benchmark_fcns : tree -> int = "caml_benchmark_fcns" "noalloc"
 
 let benchmark_fcns t = benchmark_fcns t.doc