data-shuffle? ( node -- ? )

Vocabulary

compiler.tree.debugger.private

Inputs

node

an object

Outputs

?

an object

Definition

USING: accessors compiler.tree kernel sequences ;

IN: compiler.tree.debugger.private

: data-shuffle? ( node -- ? )
    dup #shuffle?
    [ [ in-r>> empty? ] [ out-r>> empty? ] bi and ] [ drop f ]
    if ;