splitting: Add ?split word

2016-06-23 15:14:49 -07:00 · 2016-06-23 15:14:49 -07:00 · c0b1de1919
parent c8271bb9f7
commit c0b1de1919
1 changed files with 3 additions and 0 deletions
--- a/core/splitting/splitting.factor
+++ b/core/splitting/splitting.factor
@ -98,6 +98,9 @@ PRIVATE>
 : split ( seq separators -- pieces )
    [ member? ] curry split-when ; inline

+: ?split ( seq separators -- pieces/seq )
+    split dup length 1 = [ first ] when ; inline
+
 : split-slice ( seq separators -- pieces )
    [ member? ] curry split-when-slice ; inline