From 360d8e95f1b3c3891c993cefbc96c1a9370b885f Mon Sep 17 00:00:00 2001
From: Ekaitz Zarraga <ekaitz@elenq.tech>
Date: Wed, 18 Dec 2024 16:51:16 +0100
Subject: simulation: real random in 2s period

---
 simulation.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/simulation.scm b/simulation.scm
index 4ce8fc0..417bde2 100644
--- a/simulation.scm
+++ b/simulation.scm
@@ -84,7 +84,7 @@
   (thunk device-thunk))
 
 (define (rand-time)
-  (random 2))
+  (random 2.))
 
 (define (make-class-a id initial-channel upstream-chn downstream-chn)
   ;; Make all atomic
-- 
cgit v1.2.3