(?scalar-value) ( mapping-key? event -- scalar/event scalar? )

Vocabulary

yaml.private

Inputs

mapping-key?	an object
event	an object

Outputs

scalar/event	an object
scalar?	an object

Definition

USING: accessors combinators kernel yaml.ffi ;

IN: yaml.private

: (?scalar-value)
    ( mapping-key? event -- scalar/event scalar? )
    dup type>> {
        { YAML_SCALAR_EVENT [ event>scalar t ] }
        { YAML_ALIAS_EVENT [ nip deref-anchor t ] }
        [ drop nip deep-copy-event f ]
    } case ;