factor: trim using lists

[factor.git] / basis / logging / logging-docs.factor

diff --git a/basis/logging/logging-docs.factor b/basis/logging/logging-docs.factor
index 2dc5918bdae53fb49dce007316ee671792edc78b..96f2740919999c51b0b8f60b7665e19a451135d1 100644 (file)
--- a/basis/logging/logging-docs.factor
+++ b/basis/logging/logging-docs.factor
@@ -1,6 +1,6 @@
+USING: help.markup help.syntax logging.server quotations strings
+words ;
 IN: logging
-USING: help.markup help.syntax assocs math calendar
-logging.server strings words quotations ;
 
 HELP: DEBUG
 { $description "Log level for debug messages." } ;
@@ -32,7 +32,7 @@ ARTICLE: "logging.files" "Log files"
 { $subsections with-logging }
 "Log messages are written to " { $snippet "log-root/service/1.log" } ", where"
 { $list
-    { { $snippet "log-root" } " is the Factor source directory by default, but can be overriden with the " { $link log-root } " variable" }
+    { { $snippet "log-root" } " is " { $snippet "resource:logs" } " by default, but can be overriden with the " { $link log-root } " variable" }
     { { $snippet "service" } " is the service name" }
 }
 "You can get the log path for a service:"
@@ -47,19 +47,19 @@ HELP: log-message
 { $description "Sends a message to the current log if the level is more urgent than " { $link log-level } ". Does nothing if not executing in a dynamic scope established by " { $link with-logging } "." } ;
 
 HELP: add-logging
-{ $values { "level" "a log level" } { "word" word } }
+{ $values { "word" word } { "level" "a log level" } }
 { $description "Causes the word to log a message every time it is called." } ;
 
 HELP: add-input-logging
-{ $values { "level" "a log level" } { "word" word } }
+{ $values { "word" word } { "level" "a log level" } }
 { $description "Causes the word to log its input values every time it is called. The word must have a stack effect declaration." } ;
 
 HELP: add-output-logging
-{ $values { "level" "a log level" } { "word" word } }
+{ $values { "word" word } { "level" "a log level" } }
 { $description "Causes the word to log its output values every time it is called. The word must have a stack effect declaration." } ;
 
 HELP: add-error-logging
-{ $values { "level" "a log level" } { "word" word } }
+{ $values { "word" word } { "level" "a log level" } }
 { $description "Causes the word to log its input values and any errors it throws."
 $nl
 "If the word is not executed in a dynamic scope established by " { $link with-logging } ", its behavior is unchanged, and any errors it throws are passed to the caller."