inline a word in sfmt

2009-10-07 15:27:40 -05:00 · 2009-10-07 15:27:40 -05:00 · 3d2237c2b8
parent 11be7d9ff6
commit 3d2237c2b8
1 changed files with 1 additions and 1 deletions
--- a/basis/random/sfmt/sfmt.factor
+++ b/basis/random/sfmt/sfmt.factor
@ -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