?apply-default-key ( assoc -- obj' )

Vocabulary

yaml.private

Inputs

assoc

an object

Outputs

obj'

an object

Definition

USING: kernel yaml.conversion ;

IN: yaml.private

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