apply-merge-keys ( already-applied-set obj -- obj' )

Vocabulary

yaml.private

Inputs

already-applied-set	an object
obj	an object

Outputs

obj'

an object

Definition

IN: yaml.private

GENERIC: apply-merge-keys ( already-applied-set obj -- obj' )

Methods

USING: assocs kernel namespaces yaml yaml.config yaml.private ;

M: assoc apply-merge-keys
    [ [ ?apply-merge-keys ] bi-curry@ bi ] withd assoc-map!
    merge get [ ?apply-merge-key ] when value get
    [ ?apply-default-key ] when ;


USING: byte-arrays kernel yaml.private ;

M: byte-array apply-merge-keys nip ;


USING: kernel yaml.private ;

M: object apply-merge-keys nip ;


USING: kernel sequences yaml.private ;

M: sequence apply-merge-keys [ ?apply-merge-keys ] with map! ;


USING: kernel strings yaml.private ;

M: string apply-merge-keys nip ;