From fb67a7621be9e22a85f76a79d8c0ef10d206b06b Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Thu, 7 Feb 2008 19:52:40 -0600
Subject: [PATCH] Cleanup

---
 extra/logging/server/server.factor | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/extra/logging/server/server.factor b/extra/logging/server/server.factor
index cddcea8d70..601237ba81 100755
--- a/extra/logging/server/server.factor
+++ b/extra/logging/server/server.factor
@@ -25,9 +25,11 @@ SYMBOL: log-files
 : log-stream ( service -- stream )
     log-files get [ open-log-stream ] cache ;
 
+: multiline-header 20 CHAR: - <string> ; foldable
+
 : (write-message) ( msg word-name level multi? -- )
     [
-        "[" write 20 CHAR: - <string> write "] " write
+        "[" write multiline-header write "] " write
     ] [
         "[" write now (timestamp>rfc3339) "] " write
     ] if