check-word ( argcount word -- ? )


Vocabulary
infix.private

Inputs
argcountan object
wordan object


Outputs
?an object


Definition
USING: accessors effects kernel sequences ;

IN: infix.private

: check-word ( argcount word -- ? )
[ stack-effect ] [ bad-stack-effect ] ?unless
[ in>> length ] [ out>> length ] bi [ = ] dip 1 = and ;