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

math.integers: inline fixnum-log2.

db4
John Benediktsson 2012-09-10 17:20:12 -07:00
parent 62604aeb4b
commit 089bdb1268
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/math/integers/integers.factor
View File

@ -57,7 +57,7 @@ M: fixnum bitnot fixnum-bitnot ; inline
M: fixnum bit? fixnum-bit? ; inline
: fixnum-log2 ( x -- n )
0 swap [ dup 1 eq? ] [ [ 1 + ] [ 2/ ] bi* ] until drop ;
0 swap [ dup 1 eq? ] [ [ 1 + ] [ 2/ ] bi* ] until drop ; inline
M: fixnum (log2) fixnum-log2 ; inline