constant-word? ( word -- ? )


Vocabulary
inverse

Inputs
wordan object


Outputs
?an object


Definition
USING: accessors effects kernel sequences ;

IN: inverse

: constant-word? ( word -- ? )
stack-effect [ out>> length 1 = ] [ in>> empty? ] bi and ;