steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

math.bitwise: Inline bit-range

db4
Doug Coleman 2012-09-19 16:15:14 -07:00
parent cda2e4d7da
commit f0464fa097
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/math/bitwise/bitwise.factor
View File

@ -29,7 +29,7 @@ IN: math.bitwise
: next-odd ( m -- n ) dup even? [ 1 + ] [ 2 + ] if ; foldable : next-odd ( m -- n ) dup even? [ 1 + ] [ 2 + ] if ; foldable
: shift-mod ( m s w -- n ) [ shift ] dip 2^ wrap ; inline : shift-mod ( m s w -- n ) [ shift ] dip 2^ wrap ; inline
: bit-range ( x high low -- y ) : bit-range ( x high low -- y )
[ nip neg shift ] [ - 1 + ] 2bi bits ; [ nip neg shift ] [ - 1 + ] 2bi bits ; inline
: bitroll ( x s w -- y ) : bitroll ( x s w -- y )
[ wrap ] keep [ wrap ] keep