eql? ( obj1 obj2 -- ? )

Vocabulary

bootstrap.image.private

Inputs

obj1	an object
obj2	an object

Outputs

?

an object

Definition

USING: classes combinators.short-circuit kernel ;

IN: bootstrap.image.private

: eql? ( obj1 obj2 -- ? )
    { [ [ class-of ] same? ] [ (eql?) ] } 2&& ;