From 5acd2e13176a4451e6ed6c802749f8297076e2ea Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sat, 29 Nov 2014 14:55:33 -0800
Subject: [PATCH] logging.server: use locals to make write-message more clear.

---
 basis/logging/server/server.factor | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/basis/logging/server/server.factor b/basis/logging/server/server.factor
index 28fbe22e7b..984d440c05 100644
--- a/basis/logging/server/server.factor
+++ b/basis/logging/server/server.factor
@@ -43,12 +43,13 @@ SYMBOL: log-files
 : multiline-header. ( -- )
     "[" write multiline-header write "] " write ;
 
-: write-message ( msg word-name level -- )
-    [ harvest ] 2dip pick empty? [ 3drop ] [
+:: write-message ( msg word-name level -- )
+    msg harvest [
         timestamp-header.
-        [ write bl write ": " write print ] 2curry
-        [ multiline-header. ] swap interleave
-    ] if ;
+        [ multiline-header. ]
+        [ level write bl word-name write ": " write print ]
+        interleave
+    ] unless-empty ;
 
 : (log-message) ( msg -- )
     #! msg: { msg word-name level service }