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.
#QUALITY by stefan
authorStefan Vogel <sv@exept.de>
Thu, 28 Mar 2019 11:57:05 +0100
changeset 4927 8e944da8fc20
parent 4926 0d707ba99ea5
child 4928 30c9cf7ae5fd
#QUALITY by stefan class: RandomRDRand changed: #nextBoolean #nextInteger
RandomRDRand.st file | annotate | diff | comparison | revisions 
--- a/RandomRDRand.st	Thu Mar 28 11:35:23 2019 +0100
+++ b/RandomRDRand.st	Thu Mar 28 11:57:05 2019 +0100
@@ -116,7 +116,7 @@
 nextBoolean
     "generates a boolean random"
 
-    ^ self nextInteger odd
+    ^ self nextInteger bitTest:1
 
     "
         |bag rng|
@@ -172,7 +172,7 @@
 unsupported: ;
 %}.
     cfStillSet == true ifTrue:[
-        self primitiveFailed:'carry flag not clear after 500 tries'
+        self primitiveFailed:'carry flag not set after 50 tries'
     ].
     self primitiveFailed:'unsupported on this architecture'
hg/stx-libbasic2