core: push-if -> push-when, refactoring sequence words

[factor.git] / basis / bit-sets / bit-sets.factor

diff --git a/basis/bit-sets/bit-sets.factor b/basis/bit-sets/bit-sets.factor
index 341f81b10b660dd0124f9c645997f36f16bcd59f..5e3d39d8c73adfee576f4d2f14fdca70945211bc 100644 (file)
--- a/basis/bit-sets/bit-sets.factor
+++ b/basis/bit-sets/bit-sets.factor
@@ -35,7 +35,7 @@ ERROR: check-bit-set-failed ;
     dup bit-set? [ check-bit-set-failed ] unless ; inline
 
 : bit-set-map ( seq1 seq2 quot -- seq )
-    [ drop [ length ] bi@ [ assert= ] keep ]
+    [ drop 2length [ assert= ] keep ]
     [ [ [ underlying>> ] bi@ ] dip 2map ] 3bi
     bit-array boa ; inline