Minor fixes
parent
28184dc835
commit
2e01391105
|
@ -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? ;
|
||||
|
||||
|
|
|
@ -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." }
|
||||
|
|
|
@ -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
|
||||
] [
|
||||
|
|
|
@ -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" }
|
||||
}
|
||||
} ;
|
||||
|
||||
|
|
|
@ -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" } ;
|
||||
|
|
Loading…
Reference in New Issue