From a79f745a1207f390a8d4b71ae4808f0bfa8b1eb8 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Tue, 21 Jul 2015 09:54:31 -0700 Subject: [PATCH] bloom-filters: use all? instead of "map [ ] all?". --- extra/bloom-filters/bloom-filters-tests.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/bloom-filters/bloom-filters-tests.factor b/extra/bloom-filters/bloom-filters-tests.factor index b6a469bbd1..9e0a27f473 100644 --- a/extra/bloom-filters/bloom-filters-tests.factor +++ b/extra/bloom-filters/bloom-filters-tests.factor @@ -35,7 +35,7 @@ IN: bloom-filters.tests ! Should not generate bignum hash codes. Enhanced double hashing may generate a ! lot of hash codes, and it's better to do this earlier than later. -{ t } [ 10000 iota [ double-hashcodes [ fixnum? ] both? ] map [ ] all? ] unit-test +{ t } [ 10000 iota [ double-hashcodes [ fixnum? ] both? ] all? ] unit-test : empty-bloom-filter ( -- bloom-filter ) 0.01 2000 ;