fix some help-lint errors.

diff --git a/basis/io/encodings/utf7/utf7-docs.factor b/basis/io/encodings/utf7/utf7-docs.factor
index aff22d5b02d430d2b7d7b733ce737a039cf94d34..4dabcce5aa36d316920c1fbcc79e43103d0a505d 100644 (file)
--- a/basis/io/encodings/utf7/utf7-docs.factor
+++ b/basis/io/encodings/utf7/utf7-docs.factor
@@ -2,7 +2,9 @@ USING: help.markup help.syntax ;
 IN: io.encodings.utf7
 
 HELP: utf7
+{ $values { "utf7codec" utf7codec } }
 { $description "Encoding descriptor for UTF-7 encoding." } ;
 
 HELP: utf7imap4
+{ $values { "utf7codec" utf7codec } }
 { $description "Encoding descriptor for the encoding UTF-7 modified for IMAP (see RFC 3501 5.1.3)." } ;

diff --git a/basis/io/encodings/utf7/utf7.factor b/basis/io/encodings/utf7/utf7.factor
index 821ce1fb229ee47dc939a2ca35ba6ac7a958bc6d..40d4fe5490834ca7fe3e726d15652db153c0b427 100644 (file)
--- a/basis/io/encodings/utf7/utf7.factor
+++ b/basis/io/encodings/utf7/utf7.factor
@@ -10,13 +10,13 @@ TUPLE: utf7codec dialect buffer ;
 ! These words encodes the difference between standard utf7 and the
 ! dialect used by IMAP which wants slashes replaced with commas when
 ! encoding and uses '&' instead of '+' as the escaping character.
-: utf7 ( -- t )
+: utf7 ( -- utf7codec )
     {
         { { } { } }
         { { CHAR: + } { CHAR: - } }
     } V{ } utf7codec boa ;
 
-: utf7imap4 ( -- t )
+: utf7imap4 ( -- utf7codec )
     {
         { { CHAR: / } { CHAR: , } }
         { { CHAR: & } { CHAR: - } }

diff --git a/extra/grouping/extras/extras-docs.factor b/extra/grouping/extras/extras-docs.factor
index 50f6d624c881b4593b19c11a4e881360218d8030..e9d54fa20589147f77a44002afaed357c814fa55 100644 (file)
--- a/extra/grouping/extras/extras-docs.factor
+++ b/extra/grouping/extras/extras-docs.factor
@@ -3,12 +3,12 @@ USING: help.markup help.syntax sequences splitting strings ;
 IN: grouping.extras
 
 HELP: group-by
-{ $values { "seq" "a sequence" } { "quot" { $quotation "( ... elt -- ... key )" } } { "groups" "a new assoc" } }
+{ $values { "seq" "a sequence" } { "quot" { $quotation "( elt -- key )" } } { "groups" "a new assoc" } }
 { $description "Groups the elements by the key received by applying quot to each element in the sequence." }
 { $examples
   { $example
-    "USING: grouping.extras unicode.data ;"
-    "\"THis String Has  CasE!\" [ category ] group-by [ last >string ] map ."
+    "USING: grouping.extras unicode.data prettyprint sequences strings ;"
+    "\"THis String Has  CasE!\" [ category ] group-by [ last >string ] { } map-as ."
     "{ \"TH\" \"is\" \" \" \"S\" \"tring\" \" \" \"H\" \"as\" \"  \" \"C\" \"as\" \"E\" \"!\" }"
   }
 } ;

diff --git a/extra/html/parser/analyzer/analyzer-docs.factor b/extra/html/parser/analyzer/analyzer-docs.factor
index d28f82d12cb01944658ac1611d0e4a8cb80f537b..c6cd18d98fd2bfe6c022a0881a8f0311a8219fb7 100644 (file)
--- a/extra/html/parser/analyzer/analyzer-docs.factor
+++ b/extra/html/parser/analyzer/analyzer-docs.factor
@@ -1,9 +1,9 @@
-USING: help.syntax help.markup html.parser html.parser.analyzer sequences
-strings ;
+USING: help.syntax help.markup html.parser html.parser.analyzer
+kernel sequences strings ;
 IN: html.parser.analyzer
 
 HELP: html-class?
-{ $values { "tag" tag } { "string" "a classname" } }
+{ $values { "tag" tag } { "string" "a classname" } { "?" boolean } }
 { $description "t if the tag has the given class." } ;
 
 HELP: stack-find