From 97980a7810b6727b1073b4076b98a63783d715bb Mon Sep 17 00:00:00 2001
From: Ekaitz Zarraga <ekaitz@elenq.tech>
Date: Wed, 18 Dec 2024 17:16:01 +0100
Subject: simulation: use several channels

---
 simulation.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/simulation.scm b/simulation.scm
index 4087d78..dd78fa1 100644
--- a/simulation.scm
+++ b/simulation.scm
@@ -296,8 +296,8 @@
         (let ((chn (make-channel)))
           (hash-table-set!
             end-devices id
-            (make-device chn (make-class-a id 1 radio-chn chn)))))
-      (iota 1))
+            (make-device chn (make-class-a id (modulo id 3) radio-chn chn)))))
+      (iota 4))
 
     (for-each
       (lambda (id)
-- 
cgit v1.2.3