fixnum-optimization ( word quot -- word quot' )

Vocabulary

generic.math.private

Inputs

word	an object
quot	an object

Outputs

word	an object
quot'	an object

Definition

USING: generic.math kernel math math.private sequences words ;

IN: generic.math.private

: fixnum-optimization ( word quot -- word quot' )
    [ dup fixnum bootstrap-word dup math-method ] [
        dup length 3 - cut unclip [ length 2 - ] [ nth ] bi
        prefix append
    ] bi* [ if ] 2curry [ 2dup both-fixnums? ] prepend ;