find-cut ( string quot -- before after delimiter )

Vocabulary

farkup

Inputs

string	an object
quot	an object

Outputs

before	an object
after	an object
delimiter	an object

Definition

USING: kernel sequences ;

IN: farkup

: find-cut ( string quot -- before after delimiter )
    dupd find [ [ cut-half-slice ] [ f ] if* ] dip ; inline