?apply-merge-keys ( set obj -- obj' )

Vocabulary

yaml.private

Inputs

set	an object
obj	an object

Outputs

obj'

an object

Definition

USING: kernel sets ;

IN: yaml.private

: ?apply-merge-keys ( set obj -- obj' )
    2dup swap ?adjoin [ apply-merge-keys ] [ nip ] if ;