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

math: faster definition of 2/ (allows inlining of fixnum-shift-fast).

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

8
core/math/math.factor
View File

@ -66,7 +66,13 @@ ERROR: log2-expects-positive x ;
dup 0 <= [ log2-expects-positive ] [ (log2) ] if ; inline
: zero? ( x -- ? ) 0 number= ; inline
: 2/ ( x -- y ) -1 shift ; inline
! the following lines are necessary because the "-1 shift"
! definition doesn't (yet) compile as nicely...
GENERIC: 2/ ( x -- y ) foldable
M: bignum 2/ -1 bignum-shift ; inline
M: fixnum 2/ -1 fixnum-shift ; inline
: sq ( x -- y ) dup * ; inline
: neg ( x -- -x ) -1 * ; inline
: sgn ( x -- n ) dup 0 < [ drop -1 ] [ 0 > 1 0 ? ] if ; inline