bootstrap.stage2: use count

2008-07-03 13:47:11 -05:00 · 2008-07-03 13:47:11 -05:00 · 4238657a26
parent c38298f0b5
commit 4238657a26
1 changed files with 1 additions and 1 deletions
--- a/core/bootstrap/stage2.factor
+++ b/core/bootstrap/stage2.factor
@ -28,7 +28,7 @@ SYMBOL: bootstrap-time
    [ "bootstrap." prepend require ] each ;

 : count-words ( pred -- )
-    all-words swap filter length number>string write ;
+    all-words swap count number>string write ;

 : print-report ( time -- )
    1000 /i