diff --git a/extra/splitting/extras/extras-docs.factor b/extra/splitting/extras/extras-docs.factor index d4271db051..11b1dcbdaa 100644 --- a/extra/splitting/extras/extras-docs.factor +++ b/extra/splitting/extras/extras-docs.factor @@ -6,11 +6,17 @@ HELP: split*-when { $description "A variant of " { $link split-when } " that includes the elements along which the sequence was split." } { $examples { $example "USING: ascii kernel prettyprint splitting.extras ;" "\"hello,world-how.are:you\" [ letter? not ] split*-when ." "{ \"hello\" \",\" \"world\" \"-\" \"how\" \".\" \"are\" \":\" \"you\" }" } } ; +{ split*-when split*-when-slice } related-words + HELP: split* { $values { "seq" sequence } { "separators" sequence } { "pieces" "a new array" } } { $description "A variant of " { $link split } " that includes the elements along which the sequence was split." } { $examples { $example "USING: prettyprint splitting.extras ;" "\"hello world-how are you?\" \" -\" split* ." "{ \"hello\" \" \" \"world\" \"-\" \"how\" \" \" \"are\" \" \" \"you?\" }" } } ; +{ split* split*-slice } related-words + HELP: split-find { $values { "seq" sequence } { "quot" { $quotation ( seq -- i ) } } { "pieces" "a new array" } } { $description "Splits a sequence into slices using the provided quotation to find split points." } ; + +{ split-when-harvest split-when-slice-harvest } related-words