fourth= ( seq elt -- ? )


Vocabulary
sequences.extras

Inputs
seqa sequence
eltan object


Outputs
?a boolean


Word description
Checks whether the fourth element of seq is equal to elt.

Definition
USING: kernel sequences ;

IN: sequences.extras

: fourth= ( seq elt -- ? ) [ fourth ] dip = ; inline