From 7b5d006cc38fd65b60632506bb321b96b4804559 Mon Sep 17 00:00:00 2001
From: Daniel Cerqueira <dan.git@lispclub.com>
Date: Fri, 4 Jul 2025 16:45:45 +0100
Subject: make (random n) function range from 0 until n.

---
 liblali.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'liblali.c')

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);
 }
-- 
cgit