negate-vcc ( cc -- cc' )

Vocabulary

compiler.cfg.comparisons

Inputs

cc

an object

Outputs

cc'

an object

Definition

USING: assocs ;

IN: compiler.cfg.comparisons

: negate-vcc ( cc -- cc' )
    H{
        { vcc-any vcc-none }
        { vcc-notall vcc-all }
        { vcc-all vcc-notall }
        { vcc-none vcc-any }
    } at ;