Changeset 6666

Timestamp:

06/20/09 12:40:04 (15 months ago)

Author:

dbaelde

Message:

Create the loggers for stdout/stderr only once.

Files:

• trunk/liquidsoap/src/tools/tutils.ml (modified) (1 diff)

trunk/liquidsoap/src/tools/tutils.ml

@@ -218 +218 @@
   let in_stderr = reopen Unix.stderr in
   (* Without the eta-expansion, the timestamp is computed once for all. *)
-  let log_stdout s = (Log.make ["stdout"])#f 3 "%s" s in
-  let log_stderr s = (Log.make ["stderr"])#f 3 "%s" s in
+  let log_stdout =
+    let log = Log.make ["stdout"] in
+      fun s -> log#f 3 "%s" s
+  in
+  let log_stderr =
+    let log = Log.make ["stderr"] in
+      fun s -> log#f 3 "%s" s
+  in
   let forward fd log =
     let task f =