From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 24 Apr 2013 20:39:16 +0000 (-0700)
Subject: html.parser.analyzer: fix help-lint errors.
X-Git-Tag: 0.97~1414
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=4afec99e97b292bc458b39b0ffcd5d408c9360c5

html.parser.analyzer: fix help-lint errors.
---

diff --git a/extra/html/parser/analyzer/analyzer-docs.factor b/extra/html/parser/analyzer/analyzer-docs.factor
index 797126b1f2..1657eacdd8 100644
--- a/extra/html/parser/analyzer/analyzer-docs.factor
+++ b/extra/html/parser/analyzer/analyzer-docs.factor
@@ -2,10 +2,10 @@ USING: help.syntax help.markup html.parser.analyzer sequences strings ;
 IN: html.parser.analyzer-docs
 
 HELP: stack-find
-{ $values { "seq" sequence } { "quot" { $quotation "( elt -- 1/0/-1 )" } } }
+{ $values { "seq" sequence } { "quot" { $quotation "( elt -- 1/0/-1 )" } } { "i/f" "an index or " { $link f } } }
 { $description "Takes a sequence and a quotation expected to return -1 if the element decrements the stack, 0 if it doesnt affect it and 1 if it increments it. Then finds the first element where the stack is empty." } ;
 
 HELP: tag-classifier
-{ $values { "string" string } }
+{ $values { "string" string } { "quot" { $quotation "( elt -- 1/0/-1 )" } } }
 { $description "Builds a function that classifies tag tuples. Returns 1 if the tag is an opening tag with the given name, -1 if it is a closing tag and 0 otherwise." } ;