math-dispatch-step ( picker quot: ( ... class -- ... quot ) -- quot )

Vocabulary

generic.math.private

Inputs

picker	an object
quot	a quotation with stack effect ( ... class -- ... quot )

Outputs

quot

an object

Definition

USING: arrays kernel math sequences ;

IN: generic.math.private

: math-dispatch-step
    ( picker quot: ( ... class -- ... quot ) -- quot )
    [ { bignum float fixnum } swap make-math-method-table ] [
        { ratio complex } swap make-math-method-table
        tuple-dispatch
    ] 2bi tuple swap 2array prefix tag-dispatch ; inline