X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=basis%2Fmath%2Fbits%2Fbits.factor;h=e469140ff423a0ea710eced35f54da536f74e684;hp=27a9a23ca30baae4799547cbf038e0d53a537ddd;hb=3f3d57032bf29190e9bee12d168a4bce6d74653c;hpb=cd1bb8f4c8afba318249c7b756a45aa1c46ea51e diff --git a/basis/math/bits/bits.factor b/basis/math/bits/bits.factor index 27a9a23ca3..e469140ff4 100644 --- a/basis/math/bits/bits.factor +++ b/basis/math/bits/bits.factor @@ -16,4 +16,4 @@ M: bits nth-unsafe number>> swap bit? ; INSTANCE: bits immutable-sequence : unbits ( seq -- number ) - 0 [ [ 1 shift ] dip [ 1+ ] when ] reduce ; + 0 [ [ 1 shift ] dip [ 1 + ] when ] reduce ;