One extra PRNG iteration (#447)

Author: vtereshkov

playground/umka.js

@@ -324,12 +324,6 @@ const randMax* = 0x7FFFFFFF
 
 randSeed := uint(1)
 
-fn srand*(seed: int) {
-    if seed > 0 {
-        randSeed = seed
-    }
-}
-
 fn rand*(): int {
     // xorshift
     randSeed ~= randSeed << 13
@@ -342,6 +336,13 @@ fn frand*(): real {
     return real(rand()) / randMax
 }
 
+fn srand*(seed: int) {
+    if seed > 0 {
+        randSeed = seed
+        rand()
+    }
+}
+
 // Time
 
 type DateTime* = struct {

runtime/std.um

@@ -335,12 +335,6 @@ static const char *runtimeModuleSources[] = {
 "\n"
 "randSeed := uint(1)\n"
 "\n"
-"fn srand*(seed: int) {\n"
-"    if seed > 0 {\n"
-"        randSeed = seed\n"
-"    }\n"
-"}\n"
-"\n"
 "fn rand*(): int {\n"
 "    // xorshift\n"
 "    randSeed ~= randSeed << 13\n"
@@ -353,6 +347,13 @@ static const char *runtimeModuleSources[] = {
 "    return real(rand()) / randMax\n"
 "}\n"
 "\n"
+"fn srand*(seed: int) {\n"
+"    if seed > 0 {\n"
+"        randSeed = seed\n"
+"        rand()\n"
+"    }\n"
+"}\n"
+"\n"
 "// Time\n"
 "\n"
 "type DateTime* = struct {\n"