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

Vocabulary

yaml.private

Inputs

emitter	an object
event	an object
linked-assoc	an object

Outputs

None

Definition

USING: assocs hashtables kernel sequences ;

IN: yaml.private

: emit-linked-assoc-body ( emitter event linked-assoc -- )
    >alist [ first2 swap associate ] map emit-sequence-body ;