diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2014-11-21 19:29:37 -0800 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2014-11-21 19:29:37 -0800 |
commit | 4b1be76c4cbc5a81dee123b477e5e47141d18dab (patch) | |
tree | fde4de2b9ccea72f2362763250ed0dbbc8ff2aeb /mu.arc.t | |
parent | 58ad6023b52f2c37feb1e20a4d3263216d5ae597 (diff) | |
download | mu-4b1be76c4cbc5a81dee123b477e5e47141d18dab.tar.gz |
283
Diffstat (limited to 'mu.arc.t')
-rw-r--r-- | mu.arc.t | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/mu.arc.t b/mu.arc.t index 74ecd224..f2fea892 100644 --- a/mu.arc.t +++ b/mu.arc.t @@ -2157,10 +2157,12 @@ (run 'main) ;? (prn int-canon.memory*) ;? (prn sleeping-routines*) +;? (prn completed-routines*) ; read should cause the routine to sleep, and ; the sole sleeping routine should trigger the deadlock detector (let routine (car completed-routines*) - (when (or (no rep.routine!error) + (when (or (no routine) + (no rep.routine!error) (~posmatch "deadlock" rep.routine!error)) (prn "F - 'read' on empty channel blocks (puts the routine to sleep until the channel gets data)"))) ;? (quit) @@ -2183,7 +2185,8 @@ ; second write should cause the routine to sleep, and ; the sole sleeping routine should trigger the deadlock detector (let routine (car completed-routines*) - (when (or (no rep.routine!error) + (when (or (no routine) + (no rep.routine!error) (~posmatch "deadlock" rep.routine!error)) (prn "F - 'write' on full channel blocks (puts the routine to sleep until the channel gets data)"))) |