diff -r a2bd67c9fc67 -r 2d0307116c52 RandomBlumBlumShub.st --- a/RandomBlumBlumShub.st Sat Feb 15 00:45:47 2020 +0100 +++ b/RandomBlumBlumShub.st Sat Feb 15 00:46:26 2020 +0100 @@ -1,3 +1,5 @@ +"{ Encoding: utf8 }" + " COPYRIGHT (c) 2014 Claus Gittinger All Rights Reserved @@ -62,16 +64,11 @@ !RandomBlumBlumShub class methodsFor:'instance creation'! new - ^ self basicNew - initialize; - seed:(Random randomSeed) + ^ self new:(Random randomSeed) ! new:seed - self isSupported ifFalse:[ self error:'this generator needs a cpu with rdgen instruction' ]. - ^ self basicNew - initialize; - seed:seed + ^ self basicNew initialize; seed:seed ! ! !RandomBlumBlumShub methodsFor:'initialization'!