emit-mapping-key ( emitter event obj -- )

Vocabulary

yaml.private

Inputs

emitter	an object
event	an object
obj	an object

Outputs

None

Definition

USING: combinators.short-circuit kernel strings yaml.conversion
;

IN: yaml.private

: emit-mapping-key ( emitter event obj -- )
    dup { [ string? ] [ yaml-merge? ] [ yaml-value? ] } 1||
    [ [ f ] dip emit-mapping-key-scalar ] [ emit-object ] if ;