diff options
| -rw-r--r-- | simulation.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/simulation.scm b/simulation.scm index 197f0d9..6af1357 100644 --- a/simulation.scm +++ b/simulation.scm @@ -153,7 +153,7 @@ (get-operation downstream-chn))))) (match msg ;; We got the preamble in time - (($ <radio-event> 'downlink-start message-id (= listening-to? chn)) + (($ <radio-event> 'downlink-start message-id (? listening-to? chn)) (ll "Device ~a got preamble" id) message-id) ;; No preamble in time @@ -216,7 +216,7 @@ ('wait (ll "RX window started") (get-message internal-com) - (ll "Sinking again")) + (ll "RX window finished")) (_ #f))))) (lambda () |