remove duplicate count-end from contrib

diff --git a/contrib/math/utils.factor b/contrib/math/utils.factor
index 6312c60369466e97771ad1cee41c3d9397c7aa93..57f6e37c34ef10f9ba137b0bc237d6c1158d70ef 100644 (file)
--- a/contrib/math/utils.factor
+++ b/contrib/math/utils.factor
@@ -101,6 +101,3 @@ SYMBOL: step-size .01 step-size set  ! base on arguments
 
 : nth-rand ( seq -- elem ) [ length random-int ] keep nth ;
 
-: count-end ( seq quot -- count )
-    >r [ length ] keep r> find-last drop dup -1 = [ 2drop 0 ] [ - 1- ] if ;
-