Fix help lint

db4
Slava Pestov 2008-11-16 07:04:51 -06:00
parent 4f77607c13
commit 134dacdb6b
3 changed files with 3 additions and 2 deletions

View File

@ -25,6 +25,7 @@ $nl
ABOUT: "dlists" ABOUT: "dlists"
HELP: <dlist> HELP: <dlist>
{ $values { "list" dlist } }
{ $description "Creates a new double-linked list." } ; { $description "Creates a new double-linked list." } ;
HELP: <hashed-dlist> HELP: <hashed-dlist>

View File

@ -23,7 +23,7 @@ TUPLE: dlist
{ front ?dlist-node } { front ?dlist-node }
{ back ?dlist-node } ; { back ?dlist-node } ;
: <dlist> ( -- obj ) : <dlist> ( -- list )
dlist new ; inline dlist new ; inline
: <hashed-dlist> ( -- search-deque ) : <hashed-dlist> ( -- search-deque )

View File

@ -23,7 +23,7 @@ TUPLE: unrolled-list
unrolled-list new unrolled-list new
unroll-factor >>back-pos ; inline unroll-factor >>back-pos ; inline
: <hashed-unrolled-list> ( -- list ) : <hashed-unrolled-list> ( -- search-deque )
20 <hashtable> <unrolled-list> <search-deque> ; 20 <hashtable> <unrolled-list> <search-deque> ;
ERROR: empty-unrolled-list list ; ERROR: empty-unrolled-list list ;