improve C of random

1 files changed, 8 insertions, 6 deletions

diff --git a/liblali.c b/liblali.c
index b54aeb8..674df77 100644
--- a/liblali.c
+++ b/liblali.c
@@ -948,15 +948,17 @@ Object *primitiveTime(Object **args, GC_PARAM) {
 }
 
 Object *primitiveRandom(Object **args, GC_PARAM) {
-  srandom((unsigned int)(seed + time(NULL)));
-  long nrandom = random();
-  seed = (unsigned int)nrandom;
-  char string[22];
+  srandom((unsigned int) (seed + time(NULL)));
+  long int nrandom = random();
+  seed = (unsigned int) nrandom;
+  char string[22]; // 22
 
   if (*args == nil)
-    sprintf(string, "+%ld", nrandom);
+    sprintf(string, "+%ld", (long int) nrandom);
   else
-    sprintf(string, "+%ld", nrandom % (atol((*args)->car->string) + 1));
+    sprintf(string, "+%ld",
+            (long int)
+            (nrandom % (long int) (atol((*args)->car->string) + 1)));
 
   return newNumber(string, GC_ROOTS);
 }