diff options
| -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) |