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

?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 ;