#>r? ( #shuffle -- ? )

Vocabulary

compiler.tree.debugger

Inputs

#shuffle

a #shuffle

Outputs

?

a boolean

Word description

True if the #shuffle copies an item from the data stack to the retain stack.

Definition

USING: accessors combinators.short-circuit kernel sequences ;

IN: compiler.tree.debugger

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