#r>? ( #shuffle -- ? )

Vocabulary

compiler.tree.debugger

Inputs

#shuffle

an object

Outputs

?

an object

Definition

USING: accessors combinators.short-circuit kernel sequences ;

IN: compiler.tree.debugger

: #r>? ( #shuffle -- ? )
    {
        [ in-d>> empty? ]
        [ out-r>> empty? ]
        [ in-r>> length 1 = ]
        [ out-d>> length 1 = ]
    } 1&& ;