X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=core%2Fkernel%2Fkernel.factor;h=e5389f401f2117e1cd302362ac99cdea1923d769;hp=ce9c8381cbb0d7ada0c863b44aa0fc00f547f900;hb=f9a93e9993c77fde573b6bd7f9923f9d57382ff3;hpb=0a4cd2fb2dc47eaffe03ff6b1b601d84fd789230

diff --git a/core/kernel/kernel.factor b/core/kernel/kernel.factor
index ce9c8381cb..e5389f401f 100644
--- a/core/kernel/kernel.factor
+++ b/core/kernel/kernel.factor
@@ -1,6 +1,5 @@
 ! Copyright (C) 2004, 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-IN: math DEFER: <= DEFER: - ! for bootstrap
 USE: slots.private
 USE: kernel.private
 USE: math.private
@@ -307,9 +306,6 @@ M: f hashcode* 2drop 31337 ; inline
 
 : hashcode ( obj -- code ) 3 swap hashcode* ; inline
 
-: recursive-hashcode ( n obj quot -- code )
-    pick 0 <= [ 3drop 0 ] [ [ 1 - ] 2dip call ] if ; inline
-
 GENERIC: equal? ( obj1 obj2 -- ? )
 
 M: object equal? 2drop f ; inline