emit-assoc-body ( emitter event assoc -- )

Vocabulary

yaml.private

Inputs

emitter	an object
event	an object
assoc	an object

Outputs

None

Definition

USING: assocs kernel ;

IN: yaml.private

: emit-assoc-body ( emitter event assoc -- )
    [ [ emit-mapping-key ] [ emit-object ] bi-curry* 2bi ] withd
    withd assoc-each ;