diff options
-rw-r--r-- | mu.arc | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/mu.arc b/mu.arc index 1be91a57..776976a5 100644 --- a/mu.arc +++ b/mu.arc @@ -226,22 +226,22 @@ (do (trace "schedule" "pushing " top.routine*!fn-name " to sleep queue") (set sleeping-routines*.routine*)) (~empty routine*) - (do ;(trace "schedule" "scheduling " top.routine*!fn-name " for further processing") + (do (trace "schedule" "scheduling " top.routine*!fn-name " for further processing") (enq routine* running-routines*)) :else - (do ;(trace "schedule" "done with " routine*) + (do (trace "schedule" "done with " routine*) (push routine* completed-routines*))) (= routine* nil)) (each (routine _) canon.sleeping-routines* (let (val condition) rep.routine!sleep (if (is condition 'literal) - ; sleeping for an exact time - (when (> curr-cycle* val) - (trace "schedule" "waking up " top.routine!fn-name) - (wipe sleeping-routines*.routine) ; do this before modifying routine - (wipe rep.routine!sleep) - (++ pc.routine) - (enq routine running-routines*)) + ; sleeping for an exact time + (when (> curr-cycle* val) + (trace "schedule" "waking up " top.routine!fn-name) + (wipe sleeping-routines*.routine) ; do this before modifying routine + (wipe rep.routine!sleep) + (++ pc.routine) + (enq routine running-routines*)) ))) (when (empty running-routines*) (whenlet exact-sleeping-routines (keep waiting-for-exact-cycle? keys.sleeping-routines*) |