sequences.extras: another test case and make count= compare with >

[factor.git] / extra / sequences / extras / extras.factor

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index 3a35fd629ca52077bc0b05163d25a61e567384cf..ed97389d291b3f82090f97f781fbbc767223d10e 100644 (file)
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -992,7 +992,7 @@ PRIVATE>
 
 : count= ( ... seq quot: ( ... elt -- ... ? ) n -- ... ? )
     [ 0 ] 3dip [
-        '[ swap _ dip swap [ 1 + ] when dup _ >= ] find 2drop
+        '[ swap _ dip swap [ 1 + ] when dup _ > ] find 2drop
     ] keep = ; inline
 
 :: shorten* ( vector n -- seq )