math-precedence ( class -- pair )

Vocabulary

generic.math.private

Inputs

class

an object

Outputs

pair

an object

Definition

USING: arrays classes.algebra kernel math sequences ;

IN: generic.math.private

: math-precedence ( class -- pair )
    [
        { fixnum integer rational real number object }
        bootstrap-words swap [ swap class<= ] curry find drop
        -1 or
    ] [
        { fixnum bignum ratio float complex object }
        bootstrap-words swap [ class<= ] curry find drop -1 or
    ] bi 2array ;