diff --git a/library/platform/native/kernel.factor b/library/platform/native/kernel.factor index 87bb0808c9..7ae33667ae 100644 --- a/library/platform/native/kernel.factor +++ b/library/platform/native/kernel.factor @@ -27,6 +27,7 @@ IN: vectors DEFER: vector= +DEFER: vector-hashcode IN: kernel @@ -80,8 +81,8 @@ USE: vectors IN: math DEFER: number= ( defined later... ) IN: kernel -: equal? ( obj obj -- ? ) - #! Use = instead. +: = ( obj obj -- ? ) + #! Push t if a is isomorphic to b. { [ number= ] [ eq? ] @@ -102,10 +103,6 @@ IN: kernel [ eq? ] } generic ; -: = ( obj obj -- ? ) - #! Push t if a is isomorphic to b. - 2dup eq? [ 2drop t ] [ equal? ] ifte ; - : 2= ( a b c d -- ? ) #! Test if a = c, b = d. swapd = [ = ] [ 2drop f ] ifte ;