core: Add words/unwords/unwords-as and use them.

[factor.git] / basis / logging / parser / parser.factor

diff --git a/basis/logging/parser/parser.factor b/basis/logging/parser/parser.factor
index b5417255b1ecea9df698c9325fa0966861abbd28..ecff2ef1d2fa826510a3237276025f81ca358f75 100644 (file)
--- a/basis/logging/parser/parser.factor
+++ b/basis/logging/parser/parser.factor
@@ -2,8 +2,8 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors assocs calendar calendar.format calendar.parser
 combinators io io.encodings.utf8 io.files kernel logging
-logging.server make namespaces peg peg.parsers prettyprint sequences
-strings vectors words ;
+logging.server make namespaces peg peg.parsers prettyprint
+sequences splitting strings vectors words ;
 IN: logging.parser
 
 TUPLE: log-entry date level word-name message ;
@@ -95,7 +95,7 @@ M: word log-timestamp. drop "multiline" write ;
         [ date>> log-timestamp. bl ]
         [ level>> pprint bl ]
         [ word-name>> write nl ]
-        [ message>> "\n" join print ]
+        [ message>> unlines print ]
     } cleave ;
 
 : log-entries. ( errors -- )