alien-function-alias-word? ( object -- ? )

Vocabulary

alien.prettyprint

Inputs and outputs

object	an object
?	a boolean

Word description

Tests if the object is an instance of the alien-function-alias-word class.

Definition

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

IN: alien.prettyprint

: alien-function-alias-word? ( object -- ? )
    dup word?
    [ def>> { [ length 6 = ] [ last \ alien-invoke eq? ] } 1&& ]
    [ drop f ] if ;