math-upgrade ( class1 class2 -- quot )

Vocabulary
generic .math

Inputs

class1 a class

class2 a class

Outputs

quot a quotation with stack effect ( n n -- n n )

Word description
Outputs a quotation for upgrading numerical types. It takes two numbers on the stack, an instance of class1, and an instance of class2, and converts the one with the lower priority to the higher priority type.

Examples

USING: generic.math math kernel prettyprint ; fixnum bignum math-upgrade .
[ [ >bignum ] dip ]

Definition

USING: generic.math.private kernel sequences ;

IN: generic.math

: math-upgrade ( class1 class2 -- quot )
[ math-class-max ] 2keep [ (math-upgrade) ] bi-curry@ bi
[ dup empty? [ [ dip ] curry ] unless ] dip [ ] append-as ;

math-upgrade ( class1 class2 -- quot ) - Factor Documentation