io: fix help lint

Slava Pestov 2011-04-03 17:37:28 -07:00
parent 5853cf3829
commit 624bd46cef
1 changed files with 2 additions and 2 deletions

View File

@ -245,11 +245,11 @@ HELP: lines
{ $description "Reads lines of text until from the " { $link input-stream } " until it is exhausted, collecting them in a sequence of strings." } ;
HELP: each-line
{ $values { "quot" { $quotation "( str -- )" } } }
{ $values { "quot" { $quotation "( ... line -- ... )" } } }
{ $description "Calls the quotation with successive lines of text, until the current " { $link input-stream } " is exhausted." } ;
HELP: each-block
{ $values { "quot" { $quotation "( block -- )" } } }
{ $values { "quot" { $quotation "( ... block -- ... )" } } }
{ $description "Calls the quotation with successive blocks of data, until the current " { $link input-stream } " is exhausted." } ;
HELP: stream-contents