take-lines ( state char -- state' lines )


Vocabulary
farkup

Inputs
statean object
charan object


Outputs
state'an object
linesan object


Definition
USING: kernel sequences ;

IN: farkup

: take-lines ( state char -- state' lines )
dupd [ [ ?first ] ] dip [ = not ] curry compose find drop
[ cut-slice ] [ f ] if* swap ;