factor: rename count-by back to count. count* -> percent-of

[factor.git] / basis / compiler / cfg / builder / alien / boxing / boxing.factor

diff --git a/basis/compiler/cfg/builder/alien/boxing/boxing.factor b/basis/compiler/cfg/builder/alien/boxing/boxing.factor
index 228e2759e9b7fa6b2f6579855d52eb2511d79544..6620308454d813841857c360cab3026af63db01b 100644 (file)
--- a/basis/compiler/cfg/builder/alien/boxing/boxing.factor
+++ b/basis/compiler/cfg/builder/alien/boxing/boxing.factor
@@ -13,7 +13,7 @@ SYMBOL: struct-return-area
 SYMBOLS: int-reg-reps float-reg-reps ;
 
 : reg-reps ( reps -- int-reps float-reps )
-    [ second ] reject [ [ first int-rep? ] count-by ] [ length over - ] bi ;
+    [ second ] reject [ [ first int-rep? ] count ] [ length over - ] bi ;
 
 : record-reg-reps ( reps -- reps )            
     dup reg-reps [ int-reg-reps +@ ] [ float-reg-reps +@ ] bi* ;