tuple-dispatch-entry ( class picker -- quot )

Vocabulary

generic.math.private

Inputs

class	an object
picker	an object

Outputs

quot

an object

Definition

USING: classes kernel kernel.private quotations sequences ;

IN: generic.math.private

: tuple-dispatch-entry ( class picker -- quot )
    [
        1quotation
        [ { tuple } declare class-of ] [ eq? ] surround
    ] dip prepend ;