Mercurial Mercurial > hg > stx-libbasic2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
#FEATURE by cg
authorClaus Gittinger <cg@exept.de>
Fri, 02 Mar 2018 18:49:14 +0100
changeset 4611 6357d7d30179
parent 4610 73aae1b4cc57
child 4612 5cbb0e151a6a
#FEATURE by cg class: Random changed: #nextBytesNonZero:
Random.st file | annotate | diff | comparison | revisions 
--- a/Random.st	Fri Mar 02 17:08:05 2018 +0100
+++ b/Random.st	Fri Mar 02 18:49:14 2018 +0100
@@ -517,8 +517,7 @@
         |nextNonZero|
 
         [
-            self step.
-            (nextNonZero := seed bitAnd:16rFF) == 0
+            (nextNonZero := self nextByte) == 0
         ] whileTrue.
         res at:i put:nextNonZero.
     ].
hg/stx-libbasic2