diff options
Diffstat (limited to 'mu.arc')
| -rw-r--r-- | mu.arc | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/mu.arc b/mu.arc index 0c6ea313..88b8669c 100644 --- a/mu.arc +++ b/mu.arc @@ -253,7 +253,8 @@ (let next-wakeup-cycle (apply min (map [rep._!sleep 0] exact-sleeping-routines)) (= curr-cycle* (+ 1 next-wakeup-cycle)) (trace "schedule" "skipping to cycle " curr-cycle*) - (update-scheduler-state))))) + (update-scheduler-state)))) + (detect-deadlock)) (def detect-deadlock () (when (and empty.running-routines* @@ -262,7 +263,7 @@ (each (routine _) sleeping-routines* (wipe sleeping-routines*.routine) (= rep.routine!error "deadlock detected") - (enq routine completed-routines*)))) + (push routine completed-routines*)))) (def die (msg) (= rep.routine*!error msg) |