Safety before Techfest

[SXSI/xpathcomp.git] / utils.ml

diff --git a/utils.ml b/utils.ml
index 76c0432..2e02bc5 100644 (file)
--- a/utils.ml
+++ b/utils.ml
@@ -80,7 +80,7 @@ let time_mem f x =
     l:= t::!l;
     Printf.eprintf "  %fms\n%!" t ;
     Printf.eprintf "Mem use before: %s\n%!" s1;
-    Printf.eprintf "Mem use after: %s\n\n\n%!" s2;
+    Printf.eprintf "Final Mem: %s\n\n\n%!" s2;
     r
 ;;
 let time f x =