?apply-merge-key ( assoc -- assoc' ) (original) (raw)

?apply-merge-key ( assoc -- assoc' )

Vocabulary
yaml

Inputs

assoc an assoc

Outputs

assoc' an assoc

Word description
Merges the value of the !!merge key in assoc

See also
merge

Definition

USING: kernel yaml.conversion yaml.private ;

IN: yaml

: ?apply-merge-key ( assoc -- assoc' )
T{ yaml-merge } over pop-at* [ merge-value ] [ drop ] if ;