no-overflow-variant ( op -- fast-op )

Vocabulary

math.partial-dispatch

Inputs

op

an object

Outputs

fast-op

an object

Definition

USING: assocs math.private ;

IN: math.partial-dispatch

: no-overflow-variant ( op -- fast-op )
    H{
        { fixnum-shift fixnum-shift-fast }
        { fixnum/mod fixnum/mod-fast }
        { fixnum/i fixnum/i-fast }
        { fixnum- fixnum-fast }
        { fixnum* fixnum*fast }
        { fixnum+ fixnum+fast }
    } at ;