sequences: bound -> index-or-length

[factor.git] / extra / rosetta-code / top-rank / top-rank.factor

diff --git a/extra/rosetta-code/top-rank/top-rank.factor b/extra/rosetta-code/top-rank/top-rank.factor
index 361aca3b21ffd34446b065e298daad05af5cf84a..8a96e11d57b3de3df692129bf0f93e1141a1d04c 100644 (file)
--- a/extra/rosetta-code/top-rank/top-rank.factor
+++ b/extra/rosetta-code/top-rank/top-rank.factor
@@ -51,7 +51,7 @@ CONSTANT: employees {
     [ [ salary>> ] inv-sort-with ] assoc-map ;
 
 : first-n-each ( seq n quot -- )
-    [ bound head-slice ] dip each ; inline
+    [ index-or-length head-slice ] dip each ; inline
 
 : top-rank-main ( -- )
     employees prepare-departments [