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

inline a word in sfmt

db4
Doug Coleman 2009-10-07 15:27:40 -05:00
parent 11be7d9ff6
commit 3d2237c2b8
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/random/sfmt/sfmt.factor
View File

@ -130,7 +130,7 @@ M:: sfmt generate ( sfmt -- )
init-sfmt ; inline
: refill-sfmt? ( sfmt -- ? )
state>> [ index>> ] [ n>> 4 * ] bi >= ;
state>> [ index>> ] [ n>> 4 * ] bi >= ; inline
: next-index ( sfmt -- index )
state>> [ dup 1 + ] change-index drop ; inline