.

[SXSI/xpathcomp.git] / benchmark / main.ml

diff --git a/benchmark/main.ml b/benchmark/main.ml
index 111f421..b80faed 100644 (file)
--- a/benchmark/main.ml
+++ b/benchmark/main.ml
@@ -114,9 +114,10 @@ let l = TEST.test_engine [] (make_queryset
 
 List.iter (function (e,d),s -> 
             Printf.printf "\n--------------  %s   -----------------" e;
-            Array.iter ( fun i ->
-              print_newline ();
-              print_newline ();
-              print_stats Format.std_formatter i) (List.hd s);
+            List.iter (fun k -> 
+                         Array.iter ( fun i ->
+                                        print_newline ();
+                                        print_newline ();
+                                        print_stats Format.std_formatter i) k) s;
             Printf.printf "\n----------------------------------------\n"
          ) l