logging.server: Modernize a bit.

basis/logging/server/server.factor

@@ -20,8 +20,8 @@ SYMBOL: log-files
 
 : open-log-stream ( service -- stream )
     log-path
-    dup make-directories
-    1 log# utf8 <file-appender> ;
+    [ make-directories ]
+    [ 1 log# utf8 <file-appender> ] bi ;
 
 : log-stream ( service -- stream )
     log-files get [ open-log-stream ] cache ;
@@ -60,8 +60,7 @@ SYMBOL: log-files
 
 : (close-logs) ( -- )
     log-files get
-    dup values [ try-dispose ] each
-    clear-assoc ;
+    [ values [ try-dispose ] each ] [ clear-assoc ] bi ;
 
 CONSTANT: keep-logs 10
 
@@ -77,10 +76,12 @@ CONSTANT: keep-logs 10
     [ 1 - log# ] 2keep log# ?move-file ;
 
 : rotate-log ( service -- )
-    dup close-log
-    log-path
-    dup delete-oldest
-    keep-logs 1 [a,b] [ advance-log ] with each ;
+    [ close-log ]
+    [
+        log-path
+        [ delete-oldest ]
+        [ keep-logs 1 [a,b] [ advance-log ] with each ] bi
+    ] bi ;
 
 : (rotate-logs) ( -- )
     (close-logs)