tag-dispatch-entry ( tag picker -- quot )

Vocabulary

generic.math.private

Inputs

tag	an object
picker	an object

Outputs

quot

an object

Definition

USING: kernel kernel.private quotations sequences words ;

IN: generic.math.private

: tag-dispatch-entry ( tag picker -- quot )
    [ "type" word-prop 1quotation [ tag ] [ eq? ] surround ] dip
    prepend ;