diff --git a/extra/bloom-filters/bloom-filters.factor b/extra/bloom-filters/bloom-filters.factor index b82bf46d36..de7aa75a06 100644 --- a/extra/bloom-filters/bloom-filters.factor +++ b/extra/bloom-filters/bloom-filters.factor @@ -159,6 +159,6 @@ PRIVATE> increment-n-objects [ relevant-indices ] [ bits>> set-indices ] bi ; -: bloom-filter-member? ( value bloom-filter -- ? ) +: bloom-filter-member? ( object bloom-filter -- ? ) [ relevant-indices ] keep bits>> nths [ ] all? ;