Fixing everything for mandatory stack effects

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

diff --git a/extra/logging/parser/parser.factor b/extra/logging/parser/parser.factor
index c6b073e50199d2215bc20e779f63b8819acd194a..326661fee5df5403e32e3c1d087c7367da914c51 100755 (executable)
--- a/extra/logging/parser/parser.factor
+++ b/extra/logging/parser/parser.factor
@@ -6,31 +6,31 @@ namespaces combinators combinators.lib logging.server
 calendar calendar.format ;\r
 IN: logging.parser\r
 \r
-: string-of satisfy <!*> [ >string ] <@ ;\r
+: string-of ( quot -- parser ) satisfy <!*> [ >string ] <@ ;\r
 \r
 SYMBOL: multiline\r
 \r
-: 'date'\r
+: 'date' ( -- parser )\r
     [ "]" member? not ] string-of [\r
         dup multiline-header =\r
         [ drop multiline ] [ rfc3339>timestamp ] if\r
     ] <@\r
     "[" "]" surrounded-by ;\r
 \r
-: 'log-level'\r
+: 'log-level' ( -- parser )\r
     log-levels [\r
         [ word-name token ] keep [ nip ] curry <@\r
     ] map <or-parser> ;\r
 \r
-: 'word-name'\r
+: 'word-name' ( -- parser )\r
     [ " :" member? not ] string-of ;\r
 \r
 SYMBOL: malformed\r
 \r
-: 'malformed-line'\r
+: 'malformed-line' ( -- parser )\r
     [ drop t ] string-of [ malformed swap 2array ] <@ ;\r
 \r
-: 'log-message'\r
+: 'log-message' ( -- parser )\r
     [ drop t ] string-of [ 1vector ] <@ ;\r
 \r
 MEMO: 'log-line' ( -- parser )\r
@@ -49,7 +49,7 @@ MEMO: 'log-line' ( -- parser )
 : multiline? ( line -- ? )\r
     first multiline eq? ;\r
 \r
-: malformed-line\r
+: malformed-line ( line -- )\r
     "Warning: malformed log line:" print\r
     second print ;\r
 \r