Delete empty unit tests files, remove 1- and 1+, reorder IN: lines in a lot of places...

[factor.git] / basis / math / bits / bits.factor

diff --git a/basis/math/bits/bits.factor b/basis/math/bits/bits.factor
index 0fbfdf0bd948df160a6db96cddbcc87081f26471..e469140ff423a0ea710eced35f54da536f74e684 100644 (file)
--- a/basis/math/bits/bits.factor
+++ b/basis/math/bits/bits.factor
@@ -7,7 +7,7 @@ TUPLE: bits { number read-only } { length read-only } ;
 C: <bits> bits
 
 : make-bits ( number -- bits )
-    dup zero? [ drop T{ bits f 0 0 } ] [ dup abs log2 1 + <bits> ] if ; inline
+    [ T{ bits f 0 0 } ] [ dup abs log2 1 + <bits> ] if-zero ; inline
 
 M: bits length length>> ;
 
@@ -16,4 +16,4 @@ M: bits nth-unsafe number>> swap bit? ;
 INSTANCE: bits immutable-sequence
 
 : unbits ( seq -- number )
-    <reversed> 0 [ [ 1 shift ] dip [ 1+ ] when ] reduce ;
+    <reversed> 0 [ [ 1 shift ] dip [ 1 + ] when ] reduce ;