From a228072862ef59f2c029544fd4de8ba466012162 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Sun, 10 Feb 2008 20:32:10 -0600
Subject: [PATCH] Logging parser now parses the timestamps

---
 extra/logging/parser/parser.factor | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/extra/logging/parser/parser.factor b/extra/logging/parser/parser.factor
index f9bf97a442..b4c7e12772 100755
--- a/extra/logging/parser/parser.factor
+++ b/extra/logging/parser/parser.factor
@@ -11,8 +11,10 @@ IN: logging.parser
 SYMBOL: multiline
 
 : 'date'
-    multiline-header token [ drop multiline ] <@
-    [ CHAR: ] eq? not ] string-of [ rfc3339>timestamp ] <@ <|>
+    [ "]" member? not ] string-of [
+        dup multiline-header =
+        [ drop multiline ] [ rfc3339>timestamp ] if
+    ] <@
     "[" "]" surrounded-by ;
 
 : 'log-level'