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

splitting: oh array literals...

locals-and-roots
Doug Coleman 2016-06-23 23:41:00 -07:00
parent 2fab20e878
commit 0c22382c98
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/splitting/splitting.factor
View File

@ -102,7 +102,7 @@ PRIVATE>
split dup length 1 = [ first ] [ [ >array ] map ] if ; inline split dup length 1 = [ first ] [ [ >array ] map ] if ; inline
: split-dashes ( seq -- seq/seq' ) : split-dashes ( seq -- seq/seq' )
{ \ -- } ?split ; inline \ -- 1array ?split ; inline
: split-slice ( seq separators -- pieces ) : split-slice ( seq separators -- pieces )
[ member? ] curry split-when-slice ; inline [ member? ] curry split-when-slice ; inline