core: rename System.srand to System.seed-random

core/System.carp

@@ -3,7 +3,7 @@
 (defmodule System
   (register free (Fn [t] ()))
   (register time (Fn [] Int))
-  (register srand (Fn [Int] ()))
+  (register seed-random (Fn [Int] ()))
   (register sleep-seconds (Fn [Int] ()))
   (register sleep-micros (Fn [Int] ()))
 )

core/carp_system.h

@@ -15,7 +15,7 @@ int System_time() {
     return time(0);
 }
 
-void System_srand(int x) {
+void System_seed_MINUS_random(int x) {
     srand(x);
 }
 

examples/basics.carp

@@ -153,7 +153,7 @@
   (Float.random-between 10.0f 20.0f))
 
 (defn print-random-floats []
-  (do (System.srand (System.time))
+  (do (System.seed-random (System.time))
       (let [rands (Array.repeat 10 random-float)]
         (println (ref (Array.str &rands))))))
 
@@ -207,7 +207,7 @@
       (more-array)
       (macrooo)
       (macrooo2)
-      (System.srand (System.time))
+      (System.seed-random (System.time))
       (println (ref (str (ref (repeat 10 flip)))))
       (calling-delete)
       (updating)

examples/guessing.carp

@@ -37,7 +37,7 @@
 
 (defn main []
   (do (println "Seeding random number generator...\n")
-      (System.srand (System.time))
+      (System.seed-random (System.time))
       (start-new-game!)
       (while guessing
         (let [user-input (get-line)

examples/updating.carp

@@ -32,7 +32,7 @@
 
 (defn main []
   (do
-    (System.srand (System.time))
+    (System.seed-random (System.time))
     (let [monsters (Array.copy-map Monster.init-random &[@"Pegasus" @"Dragon" @"Devil"])]
       (do
         (println (ref (Array.str &monsters)))
@@ -42,3 +42,7 @@
     0 ;; <- Return value, should not be needed?!
 
     ))
+
+(build)
+(run)
+(quit)