eql? ( obj1 obj2 -- ? )

Vocabulary

compiler.tree.propagation.info

Inputs

obj1	an object
obj2	an object

Outputs

?

an object

Definition

IN: compiler.tree.propagation.info

GENERIC: eql? ( obj1 obj2 -- ? )

Methods

USING: compiler.tree.propagation.info kernel math ;

M: bignum eql? over bignum? [ = ] [ 2drop f ] if ;


USING: compiler.tree.propagation.info kernel math ;

M: complex eql? over complex? [ = ] [ 2drop f ] if ;


USING: compiler.tree.propagation.info kernel math ;

M: fixnum eql? eq? ;


USING: compiler.tree.propagation.info kernel math ;

M: float eql?
    over float? [ [ double>bits ] same? ] [ 2drop f ] if ;


USING: compiler.tree.propagation.info kernel ;

M: object eql? eq? ;


USING: compiler.tree.propagation.info kernel math ;

M: ratio eql? over ratio? [ = ] [ 2drop f ] if ;