fix

diff --git a/library/platform/native/kernel.factor b/library/platform/native/kernel.factor
index 87bb0808c912aae27d3216933f98545704d13a1c..7ae33667aec012cae0d822da2ecd2a07c7c6d8c2 100644 (file)
--- 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 ;