--- a/RandomMT19937.st Thu Oct 02 18:29:42 2014 +0200
+++ b/RandomMT19937.st Thu Oct 02 18:31:10 2014 +0200
@@ -330,9 +330,7 @@
[mti < n] whileTrue:[
|t|
- t := (1812433253
- * ((mt at:(mti)) bitXor:((mt at:(mti)) >> 30)))
- + mti.
+ t := (1812433253 * ((mt at:(mti)) bitXor:((mt at:(mti)) >> 30))) + mti.
mt at:(mti+1) put:(t bitAnd:16rFFFFFFFF).
mti := mti + 1.
@@ -411,10 +409,10 @@
!RandomMT19937 class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic2/RandomMT19937.st,v 1.8 2014-10-02 16:29:42 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic2/RandomMT19937.st,v 1.9 2014-10-02 16:31:10 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic2/RandomMT19937.st,v 1.8 2014-10-02 16:29:42 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic2/RandomMT19937.st,v 1.9 2014-10-02 16:31:10 cg Exp $'
! !