Commits

Maxime Buquet  committed 733857e

A year a 2 months after. changed log function. Just for fun

  • Participants
  • Parent commits b03f8f7

Comments (0)

Files changed (1)

 let _bgdir = ref ""
 let _tbl = Hashtbl.create 17
 
-let _logstart = U.gettimeofday ()
-
-let log str =
-  let time = U.gettimeofday () -. _logstart in
-  P.printf "%.3f: %s%!" time str
+let log =
+  let logstart = U.gettimeodday () in
+  fun str ->
+    let time = U.gettimeofday () -. logstart in
+    P.printf "%.3f: %s%!" time str
 
 let ios = int_of_string