take-blue? ( blue red -- ? )

Vocabulary

compiler.cfg.ssa.interference.private

Inputs

blue	an object
red	an object

Outputs

?

an object

Definition

USING: combinators.short-circuit kernel ;

IN: compiler.cfg.ssa.interference.private

: take-blue? ( blue red -- ? )
    {
        [ nip done? ]
        [ { [ drop done? not ] [ blue-smaller? ] } 2&& ]
    } 2|| ; inline