tag-dispatch ( picker alist -- alist' )

Vocabulary

generic.math.private

Inputs

picker	an object
alist	an object

Outputs

alist'

an object

Definition

USING: assocs kernel ;

IN: generic.math.private

: tag-dispatch ( picker alist -- alist' )
    swap [ [ tag-dispatch-entry ] curry dip ] curry assoc-map
    math-alist>quot ;