From d987befbe371b42a2e5413a33fa955bec6bbe443 Mon Sep 17 00:00:00 2001 From: Alec Berryman Date: Sun, 10 May 2009 19:41:39 -0400 Subject: [PATCH] bloom-filters: fewer fried quots --- extra/bloom-filters/bloom-filters.factor | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/extra/bloom-filters/bloom-filters.factor b/extra/bloom-filters/bloom-filters.factor index 46c2a3f8c1..308d10ad84 100644 --- a/extra/bloom-filters/bloom-filters.factor +++ b/extra/bloom-filters/bloom-filters.factor @@ -84,10 +84,10 @@ ERROR: invalid-n-objects ; ! support it, and I haven't done my own, but we'll go with it anyway. ! : size-bloom-filter ( error-rate number-objects -- number-hashes number-bits ) - '[ _ _ bits-to-satisfy-error-rate ] - '[ dup _ call 2array smaller-second ] - '[ n-hashes-range identity-configuration _ reduce ] - call + [ n-hashes-range identity-configuration ] 2dip + '[ dup [ _ _ bits-to-satisfy-error-rate ] + call 2array smaller-second ] + reduce dup validate-sizes first2 ;