same? ( x y quot -- ? )

Vocabulary

kernel

Inputs

x	an object
y	an object
quot	a 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

IN: kernel

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