splitting.extras: need to hint split-harvest.

2013-12-12 19:32:58 -08:00 · 2013-12-12 19:32:58 -08:00 · 4f34e4dfbc
parent 0cbf869261
commit 4f34e4dfbc
1 changed files with 4 additions and 1 deletions
--- a/extra/splitting/extras/extras.factor
+++ b/extra/splitting/extras/extras.factor
@ -1,4 +1,4 @@
-USING: kernel math sequences ;
+USING: hints kernel math sequences strings ;

 IN: splitting.extras

@ -59,3 +59,6 @@ PRIVATE>

 : split-harvest ( seq separators -- pieces )
    [ member? ] curry split-when-harvest ; inline
+
+{ split* split*-slice split-harvest }
+[ { string string } set-specializer ] each