make (random n) function range from 0 until n.

1 files changed, 1 insertions, 1 deletions

diff --git a/liblali.c b/liblali.c
index 82c900c..b54aeb8 100644
--- a/liblali.c
+++ b/liblali.c
@@ -956,7 +956,7 @@ Object *primitiveRandom(Object **args, GC_PARAM) {
   if (*args == nil)
     sprintf(string, "+%ld", nrandom);
   else
-    sprintf(string, "+%ld", nrandom % atol((*args)->car->string));
+    sprintf(string, "+%ld", nrandom % (atol((*args)->car->string) + 1));
 
   return newNumber(string, GC_ROOTS);
 }