diff options
| author | Ekaitz Zarraga <ekaitz@elenq.tech> | 2024-12-18 17:16:01 +0100 |
|---|---|---|
| committer | Ekaitz Zarraga <ekaitz@elenq.tech> | 2024-12-18 17:16:01 +0100 |
| commit | 97980a7810b6727b1073b4076b98a63783d715bb (patch) | |
| tree | 88b8c6ab0a083a3ed6bb1cdee4f54a404e160317 | |
| parent | 8ffb7f75b4a7d2b4e739283f9239dee8ea9b306f (diff) | |
simulation: use several channels
| -rw-r--r-- | simulation.scm | 4 |
1 files 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) |