logging.server: Modernize a bit.

diff --git a/basis/logging/server/server.factor b/basis/logging/server/server.factor
index f5539b281325aeae295f86e3aa308bee4c254b12..0a7daf310f819236369afb6053a3eeae88fe58de 100644 (file)
--- a/basis/logging/server/server.factor
+++ b/basis/logging/server/server.factor
@@ -20,8 +20,8 @@ SYMBOL: log-files
 \r
 : open-log-stream ( service -- stream )\r
     log-path\r
-    dup make-directories\r
-    1 log# utf8 <file-appender> ;\r
+    [ make-directories ]\r
+    [ 1 log# utf8 <file-appender> ] bi ;\r
 \r
 : log-stream ( service -- stream )\r
     log-files get [ open-log-stream ] cache ;\r
@@ -60,8 +60,7 @@ SYMBOL: log-files
 \r
 : (close-logs) ( -- )\r
     log-files get\r
-    dup values [ try-dispose ] each\r
-    clear-assoc ;\r
+    [ values [ try-dispose ] each ] [ clear-assoc ] bi ;\r
 \r
 CONSTANT: keep-logs 10\r
 \r
@@ -77,10 +76,12 @@ CONSTANT: keep-logs 10
     [ 1 - log# ] 2keep log# ?move-file ;\r
 \r
 : rotate-log ( service -- )\r
-    dup close-log\r
-    log-path\r
-    dup delete-oldest\r
-    keep-logs 1 [a,b] [ advance-log ] with each ;\r
+    [ close-log ]\r
+    [\r
+        log-path\r
+        [ delete-oldest ]\r
+        [ keep-logs 1 [a,b] [ advance-log ] with each ] bi\r
+    ] bi ;\r
 \r
 : (rotate-logs) ( -- )\r
     (close-logs)\r