diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2015-01-11 23:37:19 -0800 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2015-01-11 23:37:19 -0800 |
| commit | f1748ef3479cab9766052514df5f9534db077d70 (patch) | |
| tree | b53082141f9e499c70a12e679e3ff85399de0134 /mu.arc | |
| parent | 353cf5a40fe09cbb62c8ce2a42f8dc9c1cf5d5de (diff) | |
| download | mu-f1748ef3479cab9766052514df5f9534db077d70.tar.gz | |
541
Diffstat (limited to 'mu.arc')
| -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*) |