splitting: making split inline.

db4
John Benediktsson 2012-08-06 15:08:16 -07:00
parent dfe06d3070
commit f60513c053
1 changed files with 2 additions and 2 deletions

View File

@ -68,7 +68,7 @@ PRIVATE>
PRIVATE>
: split ( seq separators -- pieces )
[ [ member? ] curry split, ] { } make ;
[ [ member? ] curry split, ] { } make ; inline
: split-when ( ... seq quot: ( ... elt -- ... ? ) -- ... pieces )
[ split, ] { } make ; inline
@ -86,7 +86,7 @@ PRIVATE>
PRIVATE>
: split* ( seq separators -- pieces )
[ [ member? ] curry split*, ] { } make ;
[ [ member? ] curry split*, ] { } make ; inline
: split*-when ( ... seq quot: ( ... elt -- ... ? ) -- ... pieces )
[ split*, ] { } make ; inline