steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

splitting: Add ?split word

locals-and-roots
Doug Coleman 2016-06-23 15:14:49 -07:00
parent c8271bb9f7
commit c0b1de1919
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
core/splitting/splitting.factor
View File

@ -98,6 +98,9 @@ PRIVATE>
: split ( seq separators -- pieces ) : split ( seq separators -- pieces )
[ member? ] curry split-when ; inline [ member? ] curry split-when ; inline
: ?split ( seq separators -- pieces/seq )
split dup length 1 = [ first ] when ; inline
: split-slice ( seq separators -- pieces ) : split-slice ( seq separators -- pieces )
[ member? ] curry split-when-slice ; inline [ member? ] curry split-when-slice ; inline