add upperbound on seed in random

pharo-project · Apr 30, 2021 · 5c8ae8d · 5c8ae8d
1 parent b6da83e
commit 5c8ae8d
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/Random-Core/Random.class.st b/src/Random-Core/Random.class.st
@@ -184,11 +184,13 @@ Random >> seed [
 
 { #category : #initialization }
 Random >> seed: aNumber [
-	"Refer #privateNextSeed and [1], seed should be positive"
+	"Refer #privateNextSeed and [1], seed should be positive and less than m"
 	| newSeed |
 	newSeed := aNumber.
 	[ newSeed > 0 ] whileFalse: 
 		[ newSeed := newSeed + m ].
+	[ newSeed < m ] whileFalse:
+		[ newSeed := newSeed - m ].
 	seed := newSeed.
 
 ]