From 184de13b57836460d9986a3b20b998ea506e6442 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Tue, 16 Dec 2008 06:00:45 -0600
Subject: [PATCH] Some help lint fixes, including a fix for help lint itself

---
 basis/db/types/types-docs.factor          | 3 +++
 basis/help/lint/lint.factor               | 3 +--
 extra/assoc-heaps/assoc-heaps-docs.factor | 2 +-
 3 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/basis/db/types/types-docs.factor b/basis/db/types/types-docs.factor
index bd0b443fbe..d5908740c6 100644
--- a/basis/db/types/types-docs.factor
+++ b/basis/db/types/types-docs.factor
@@ -41,12 +41,15 @@ HELP: +user-assigned-id+
 { $description "The user is responsible for choosing a primary key for tuples inserted with this database type. Keys must be unique or else the database will throw an error. Usually it is better to use a " { $link +db-assigned-id+ } "." } ;
 
 HELP: <generator-bind>
+{ $values { "slot-name" object } { "key" object } { "generator-singleton" object } { "type" object } { "generator-bind" generator-bind } }
 { $description "" } ;
 
 HELP: <literal-bind>
+{ $values { "key" object } { "type" object } { "value" object } { "literal-bind" literal-bind } }
 { $description "" } ;
 
 HELP: <low-level-binding>
+{ $values { "value" object } { "low-level-binding" low-level-binding } }
 { $description "" } ;
 
 HELP: BIG-INTEGER
diff --git a/basis/help/lint/lint.factor b/basis/help/lint/lint.factor
index f6ed13b3fa..817285412e 100644
--- a/basis/help/lint/lint.factor
+++ b/basis/help/lint/lint.factor
@@ -43,10 +43,9 @@ IN: help.lint
 
 : check-values ( word element -- )
     {
+        [ drop { [ symbol? ] [ macro? ] [ parsing-word? ] } 1|| ]
         [ drop "declared-effect" word-prop not ]
         [ nip contains-funky-elements? ]
-        [ drop symbol? ]
-        [ drop macro? ]
         [
             [ effect-values >array ]
             [ extract-values >array ]
diff --git a/extra/assoc-heaps/assoc-heaps-docs.factor b/extra/assoc-heaps/assoc-heaps-docs.factor
index 1ad6005911..b148995cb8 100644
--- a/extra/assoc-heaps/assoc-heaps-docs.factor
+++ b/extra/assoc-heaps/assoc-heaps-docs.factor
@@ -5,7 +5,7 @@ heaps.private ;
 IN: assoc-heaps
 
 HELP: <assoc-heap>
-{ $values { "assoc" assoc } { "heap" heap } }
+{ $values { "assoc" assoc } { "heap" heap } { "assoc-heap" assoc-heap } }
 { $description "Constructs a new " { $link assoc-heap } " from two existing data structures." } ;
 
 HELP: <unique-max-heap>