USING: kernel locals locals.prettyprint regexp sequences ;

IN: regexp.private

:: (re-split) ( string regexp quot -- new-slices )
0 string regexp [| end start end' string |
end' end start string quot call
] map-matches swap string length string quot call suffix ;
inline