factor: alien.c-types:short -> cramp

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