Minor fixes

slava 2006-08-18 03:15:36 +00:00
parent 28184dc835
commit 2e01391105
5 changed files with 14 additions and 13 deletions

View File

@ -90,7 +90,8 @@ M: object like drop ;
: pop* ( seq -- ) dup length 1- swap set-length ;
: pop ( seq -- ) dup length 1- swap [ nth ] 2keep set-length ;
: pop ( seq -- elt )
dup length 1- swap [ nth ] 2keep set-length ;
: all-equal? ( seq -- ? ) [ = ] monotonic? ;

View File

@ -151,7 +151,7 @@ HELP: pop*
{ $see-also peek pop } ;
HELP: pop
{ $values { "seq" "a resizable mutable sequence" } }
{ $values { "seq" "a resizable mutable sequence" } { "elt" "an object" } }
{ $description "Outputs the last element after removing it and shortening the sequence." }
{ $side-effects "seq" }
{ $errors "Throws an error if the sequence is empty." }

View File

@ -34,7 +34,7 @@ strings vectors ;
: ?head ( seq begin -- newseq ? )
2dup head? [ length tail t ] [ drop f ] if ;
: tail? ( seq end -- newseq ? )
: tail? ( seq end -- ? )
2dup [ length ] 2apply < [
2drop f
] [

View File

@ -21,15 +21,15 @@ HELP: step1b
{ $examples
{ $table
{ "Input:" "Output:" }
{ "feed" } { "feed" }
{ "agreed" } { "agree" }
{ "disabled" } { "disable" }
{ "matting" } { "mat" }
{ "mating" } { "mate" }
{ "meeting" } { "meet" }
{ "milling" } { "mill" }
{ "messing" } { "mess" }
{ "meetings" } { "meet" }
{ "feed" "feed" }
{ "agreed" "agree" }
{ "disabled" "disable" }
{ "matting" "mat" }
{ "mating" "mate" }
{ "meeting" "meet" }
{ "milling" "mill" }
{ "messing" "mess" }
{ "meetings" "meet" }
}
} ;

View File

@ -4,4 +4,4 @@ HELP: <plain-writer>
{ $values { "stream" "an input stream" } { "new-stream" "an input stream" } }
{ $description "Wraps an input stream in a stream supporting the extended stream output protocol in a trivial way." }
{ $notes "Stream constructors should call this word to wrap streams that do not natively support the extended stream output protocol." }
{ $see "stream-protocol" } ;
{ $see-also "stream-protocol" } ;