parse-delimiter ( string delimiter class -- paragraph )

Vocabulary

farkup

Inputs

string	an object
delimiter	an object
class	an object

Outputs

paragraph

an object

Definition

USING: accessors kernel lists ;

IN: farkup

: parse-delimiter ( string delimiter class -- paragraph )
    [ [ = ] curry find-cut drop ] dip
    [ [ parse-paragraph ] ] dip [ new swap >>child ] curry
    compose [ (parse-paragraph) ] bi* cons ;