about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2015-01-11 23:37:19 -0800
committerKartik K. Agaram <vc@akkartik.com>2015-01-11 23:37:19 -0800
commitf1748ef3479cab9766052514df5f9534db077d70 (patch)
treeb53082141f9e499c70a12e679e3ff85399de0134
parent353cf5a40fe09cbb62c8ce2a42f8dc9c1cf5d5de (diff)
downloadmu-f1748ef3479cab9766052514df5f9534db077d70.tar.gz
541
-rw-r--r--mu.arc6
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*)