Vocabulary
kernel

Inputs and outputs

obj1	an object
obj2	an object
?	a boolean

Word description
Tests if two objects are equal. If obj1 and obj2 point to the same object, outputs t. Otherwise, calls the equal? generic word.

Examples

USING: kernel prettyprint ; 5 5 = .
t

USING: kernel prettyprint ; 5 005 = .
t

USING: kernel prettyprint ; 5 5.0 = .
f

USING: arrays kernel prettyprint ; { "a" "b" } "a" "b" 2array = .
t

USING: arrays kernel prettyprint ; { "a" "b" } [ "a" "b" ] = .
f

Definition

USING: math.private ;

IN: kernel

: = ( obj1 obj2 -- ? )
2dup eq?
[ 2drop t ]
[ 2dup both-fixnums? [ 2drop f ] [ equal? ] if ] if ;
inline