diff options
| -rw-r--r-- | mu.arc | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/mu.arc b/mu.arc index de6a5bfc..94de4148 100644 --- a/mu.arc +++ b/mu.arc @@ -356,9 +356,9 @@ (when (empty running-routines*) (whenlet exact-sleeping-routines (keep waiting-for-exact-cycle? keys.sleeping-routines*) (let next-wakeup-cycle (apply min (map [rep._!sleep 1] exact-sleeping-routines)) - (= curr-cycle* (+ 1 next-wakeup-cycle)) - (trace "schedule" "skipping to cycle " curr-cycle*) - (update-scheduler-state)))) + (= curr-cycle* (+ 1 next-wakeup-cycle))) + (trace "schedule" "skipping to cycle " curr-cycle*) + (update-scheduler-state))) (when (and (all [rep._ 'helper] (as cons running-routines*)) (all [rep._ 'helper] keys.sleeping-routines*)) (until (empty running-routines*) |