evaluate-cc ( result cc -- ? )

Vocabulary

compiler.cfg.comparisons

Inputs

result	an object
cc	an object

Outputs

?

an object

Definition

USING: assocs math.order sequences ;

IN: compiler.cfg.comparisons

: evaluate-cc ( result cc -- ? )
    H{
        { cc<>= { +lt+ +eq+ +gt+ } }
        { cc/= { +lt+ +gt+ +unordered+ } }
        { cc/> { +lt+ +eq+ +unordered+ } }
        { cc<> { +lt+ +gt+ } }
        { cc<= { +lt+ +eq+ } }
        { cc>= { +eq+ +gt+ } }
        { cc/<= { +gt+ +unordered+ } }
        { cc/<> { +eq+ +unordered+ } }
        { cc/>= { +lt+ +unordered+ } }
        { cc/<>= { +unordered+ } }
        { cc/< { +eq+ +gt+ +unordered+ } }
        { cc< { +lt+ } }
        { cc= { +eq+ } }
        { cc> { +gt+ } }
    } at member-eq? ;