event>scalar ( mapping-key? event -- obj )

Vocabulary

yaml.private

Inputs

mapping-key?	an object
event	an object

Outputs

obj

an object

Definition

USING: accessors kernel yaml.conversion ;

IN: yaml.private

: event>scalar ( mapping-key? event -- obj )
    data>> scalar>>
    [ swap construct-scalar ] [ ?register-anchor ] bi ;