Vocabulary
splitting.private

Inputs
seqan object
quota quotation with stack effect ( ... elt -- ... ? )
snip-quotan object


Outputs
before-slicean object
after-slicean object


Definition


: (split1-when)
( ... seq quot: ( ... elt -- ... ? ) snip-quot -- ... before-slice after-slice )
[ dupd find drop ] dip [ swap [ dup 1 + ] dip ] prepose
[ f ] if* ; inline