math.functions.integer-logs: remove unused word

diff --git a/basis/math/functions/integer-logs/integer-logs.factor b/basis/math/functions/integer-logs/integer-logs.factor
index 37ea8e11a51b84d9993aa78d159a8fb6131bffda..c26fc7d7b89c7e10d95d144dd279e087d8f85729 100644 (file)
--- a/basis/math/functions/integer-logs/integer-logs.factor
+++ b/basis/math/functions/integer-logs/integer-logs.factor
@@ -94,9 +94,6 @@ M: ratio (integer-log2) [ (integer-log2) ] 2 (ratio-integer-log) ;
 
 M: ratio (integer-log10) [ (integer-log10) ] 10 (ratio-integer-log) ;
 
-: (integer-log) ( x quot -- n )
-    [ dup 0 > ] dip [ log-expects-positive ] if ; inline
-
 PRIVATE>
 
 : integer-log10 ( x -- n )