assoc-map! ( assoc quot -- assoc' )

Vocabulary

yaml.private

Inputs

assoc	an object
quot	an object

Outputs

assoc'

an object

Definition

USING: assocs kernel ;

IN: yaml.private

: assoc-map! ( assoc quot -- assoc' )
    [ assoc-map ] [ drop clear-assoc ]
    [ drop swap assoc-union! ] 2tri ; inline