logging.server: use locals to make write-message more clear.

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