core: cramp -> bound (was short)

[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 e9cdba9734ce2f3d4b3e9449650db86a1c5a941c..361aca3b21ffd34446b065e298daad05af5cf84a 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 -- )
-    [ cramp head-slice ] dip each ; inline
+    [ bound head-slice ] dip each ; inline
 
 : top-rank-main ( -- )
     employees prepare-departments [