same? ( x y quot -- ? )


Vocabulary
kernel

Inputs
xan object
yan object
quota quotation with stack effect ( ... obj -- ... obj' )


Outputs
?a boolean


Word description
Applies the quotation to both x and y, and then checks if the results are equal.

Examples
USING: kernel math prettyprint ; 4 5 [ 2/ ] same? .
t

USING: kernel math prettyprint ; 3 7 [ sq ] same? .
f


Definition

: same? ( x y quot -- ? ) bi@ = ; inline