use radix literals

[factor.git] / basis / io / backend / unix / multiplexers / select / select.factor

diff --git a/basis/io/backend/unix/multiplexers/select/select.factor b/basis/io/backend/unix/multiplexers/select/select.factor
index e64e5e707e2a07cd0ca693e74f0e33f311926555..09fd5840c2a0b0c531f9176141a1eda15c180a37 100644 (file)
--- a/basis/io/backend/unix/multiplexers/select/select.factor
+++ b/basis/io/backend/unix/multiplexers/select/select.factor
@@ -13,7 +13,7 @@ TUPLE: select-mx < mx read-fdset write-fdset ;
 ! byte order differences on big endian platforms
 : munge ( i -- i' )
     little-endian? [
-      cell 4 = [ BIN: 11000 ] [ BIN: 111000 ] if
+      cell 4 = [ 0b11000 ] [ 0b111000 ] if
       bitxor ] unless ; inline
 
 : <select-mx> ( -- mx )