(eql?) ( obj1 obj2 -- ? )

Vocabulary

bootstrap.image.private

Inputs

obj1	an object
obj2	an object

Outputs

?

an object

Definition

IN: bootstrap.image.private

GENERIC: (eql?) ( obj1 obj2 -- ? )

Methods

USING: bootstrap.image.private kernel kernel.private math ;

M: bignum (eql?) { bignum bignum } declare = ;


USING: bootstrap.image.private kernel math ;

M: fixnum (eql?) eq? ;


USING: bootstrap.image.private math ;

M: float (eql?) fp-bitwise= ;


USING: bootstrap.image.private kernel ;

M: object (eql?) = ;


USING: bootstrap.image.private kernel sequences ;

M: sequence (eql?)
    [ [ length ] same? ] 2check
    [ [ eql? ] 2all? ] [ 2drop f ] if ;