merge-aliases ( authors -- authors' )

Vocabulary

contributors

Inputs

authors

an object

Outputs

authors'

an object

Definition

USING: assocs kernel sequences ;

IN: contributors

: merge-aliases ( authors -- authors' )
    aliases [
        unclip [ pick at+ ] curry [ [ over delete-at* ] ] dip
        [ [ drop ] if ] curry compose each
    ] each ;