From f1748ef3479cab9766052514df5f9534db077d70 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Sun, 11 Jan 2015 23:37:19 -0800 Subject: 541 --- mu.arc | 6 +++--- 1 file 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*) -- cgit 1.4.1-2-gfad0