(parse-sequence) ( parser event prev-event -- obj )

Vocabulary

yaml.private

Inputs

parser	an object
event	an object
prev-event	an object

Outputs

obj

an object

Definition

USING: accessors kernel yaml.conversion ;

IN: yaml.private

: (parse-sequence) ( parser event prev-event -- obj )
    data>> sequence_start>>
    [ [ 2drop f ] dip ?register-anchor drop ]
    [ [ parse-sequence ] [ construct-sequence ] bi* ]
    [ 2nip ?register-anchor ] 3tri ;