From 03b7e67547628abb47495f0a46f434671aec7739 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 12 Mar 2014 20:08:15 -0700
Subject: [PATCH] fix some help-lint errors.

---
 basis/io/encodings/utf7/utf7-docs.factor        | 2 ++
 basis/io/encodings/utf7/utf7.factor             | 4 ++--
 extra/grouping/extras/extras-docs.factor        | 6 +++---
 extra/html/parser/analyzer/analyzer-docs.factor | 6 +++---
 4 files changed, 10 insertions(+), 8 deletions(-)

diff --git a/basis/io/encodings/utf7/utf7-docs.factor b/basis/io/encodings/utf7/utf7-docs.factor
index aff22d5b02..4dabcce5aa 100644
--- 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 821ce1fb22..40d4fe5490 100644
--- 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 50f6d624c8..e9d54fa205 100644
--- 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 d28f82d12c..c6cd18d98f 100644
--- 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
-- 
2.34.1