bootstrap.stage2: use count

db4
Eduardo Cavazos 2008-07-03 13:47:11 -05:00
parent c38298f0b5
commit 4238657a26
1 changed files with 1 additions and 1 deletions

View File

@ -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