splitting: adding split-slice and split*-slice for completeness.
parent
7bf3cf4922
commit
ae4e53fd5b
|
@ -95,6 +95,9 @@ PRIVATE>
|
|||
: split ( seq separators -- pieces )
|
||||
[ member? ] curry split-when ; inline
|
||||
|
||||
: split-slice ( seq separators -- pieces )
|
||||
[ member? ] curry split-when-slice ; inline
|
||||
|
||||
<PRIVATE
|
||||
|
||||
: (split*) ( n seq quot: ( ... elt -- ... ? ) quot -- )
|
||||
|
@ -117,6 +120,9 @@ PRIVATE>
|
|||
: split* ( seq separators -- pieces )
|
||||
[ member? ] curry split*-when ; inline
|
||||
|
||||
: split*-slice ( seq separators -- pieces )
|
||||
[ member? ] curry split*-when-slice ; inline
|
||||
|
||||
GENERIC: string-lines ( str -- seq )
|
||||
|
||||
M: string string-lines
|
||||
|
|
Loading…
Reference in New Issue