modular-variant ( op -- fast-op )

Vocabulary

math.partial-dispatch

Inputs

op

an object

Outputs

fast-op

an object

Definition

USING: assocs kernel math math.private ;

IN: math.partial-dispatch

: modular-variant ( op -- fast-op )
    generic-variant dup H{
        { shift fixnum-shift-fast }
        { bitnot fixnum-bitnot }
        { bitor fixnum-bitor }
        { * fixnum*fast }
        { + fixnum+fast }
        { bitxor fixnum-bitxor }
        { - fixnum-fast }
        { bitand fixnum-bitand }
    } at swap or ;