splitting.extras: need to hint split-harvest.
parent
0cbf869261
commit
4f34e4dfbc
|
@ -1,4 +1,4 @@
|
||||||
USING: kernel math sequences ;
|
USING: hints kernel math sequences strings ;
|
||||||
|
|
||||||
IN: splitting.extras
|
IN: splitting.extras
|
||||||
|
|
||||||
|
@ -59,3 +59,6 @@ PRIVATE>
|
||||||
|
|
||||||
: split-harvest ( seq separators -- pieces )
|
: split-harvest ( seq separators -- pieces )
|
||||||
[ member? ] curry split-when-harvest ; inline
|
[ member? ] curry split-when-harvest ; inline
|
||||||
|
|
||||||
|
{ split* split*-slice split-harvest }
|
||||||
|
[ { string string } set-specializer ] each
|
||||||
|
|
Loading…
Reference in New Issue