From b7d16801ff3e4f00d3c5c33b2e3564b23f3285cb Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sat, 25 Aug 2012 18:42:37 -0700 Subject: [PATCH] logging.server: Modernize a bit. --- basis/logging/server/server.factor | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/basis/logging/server/server.factor b/basis/logging/server/server.factor index f5539b2813..0a7daf310f 100644 --- a/basis/logging/server/server.factor +++ b/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 ; + [ make-directories ] + [ 1 log# utf8 ] 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)