Some help lint fixes, including a fix for help lint itself

db4
Slava Pestov 2008-12-16 06:00:45 -06:00
parent 7ef5addd4c
commit 184de13b57
3 changed files with 5 additions and 3 deletions

View File

@ -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

View File

@ -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 ]

View File

@ -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>