shuffle-word? ( object -- ? )

Vocabulary

shuffle

Inputs and outputs

object	an object
?	a boolean

Word description

Tests if the object is an instance of the shuffle-word class.

Definition

USING: accessors combinators.short-circuit effects kernel
sequences words ;

IN: shuffle

: shuffle-word? ( object -- ? )
    dup word? [
        def>> {
            [ length 2 = ]
            [ first effect? ]
            [ last \ shuffle-effect = ]
        } 1&&
    ] [ drop f ] if ;