Mercurial Mercurial > hg > stx-libbasic2 / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
RandomTT800.st
changeset 3385 75bf29545e08
parent 3352 6263fe92efbf
child 3392 2e2247b1dd41 
--- a/RandomTT800.st	Wed Oct 01 17:17:06 2014 +0200
+++ b/RandomTT800.st	Wed Oct 01 17:17:08 2014 +0200
@@ -353,7 +353,7 @@
     k := 0.
 
     "x := self class initialSeeds.  (Done in #seed:) "
-    self seed: Time millisecondClockValue.
+    self seed: (Random randomSeed bitAnd:16rFFFFFFFF).
 
     " this is magic vector `a', don't change "
     mag01 := #( 16r0 16r8EBFD028 ). 
@@ -414,10 +414,10 @@
 !RandomTT800 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/RandomTT800.st,v 1.6 2014-10-01 12:50:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/RandomTT800.st,v 1.7 2014-10-01 15:17:08 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/RandomTT800.st,v 1.6 2014-10-01 12:50:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/RandomTT800.st,v 1.7 2014-10-01 15:17:08 cg Exp $'
 ! !
hg/stx-libbasic2