deep-copy-event ( event -- event' )

Vocabulary

yaml.private

Inputs

event

an object

Outputs

event'

an object

Definition

USING: accessors combinators kernel ;

IN: yaml.private

: deep-copy-event ( event -- event' )
    {
        [ type>> ]
        [ deep-copy-data ]
        [ start_mark>> ]
        [ end_mark>> ]
    } cleave factor_yaml_event_t boa ;