<PRIVATE
+: subseq-range ( seq subseq -- from/f to/f )
+ [ swap subseq-start ] keep [ dupd length + ] curry [ f f ] if* ; inline
+
: (split1) ( seq subseq snip-quot -- before after )
- [
- swap [
- [ drop length ] [ subseq-start dup ] 2bi
- [ [ nip ] [ + ] 2bi t ]
- [ 2drop f f f ]
- if
- ] keep swap
- ] dip [ 2nip f ] if ; inline
+ [ [ subseq-range ] keepd over ] dip [ 2nip f ] if ; inline
PRIVATE>