flatten-values ( assoc -- assoc' )

Vocabulary

assocs.extras

Inputs

assoc

an object

Outputs

assoc'

an object

Definition

USING: kernel ;

IN: assocs.extras

: flatten-values ( assoc -- assoc' )
    dup any-multi-value?
    [ expand-values-set-at flatten-values ] when ;