parse-code ( state -- state' item )

Vocabulary

farkup

Inputs

state

an object

Outputs

state'	an object
item	an object

Definition

USING: kernel sequences ;

IN: farkup

: parse-code ( state -- state' item )
    dup 1 look 91 =
    [ unclip-slice make-paragraph ] [
        dup "{" take-until [
            [ nip rest ] dip "}]" take-until [ code boa ] dip
            swap
        ] [ drop unclip-slice make-paragraph ] if*
    ] if ;