diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2014-12-28 14:09:25 -0800 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2014-12-28 14:09:25 -0800 |
commit | 1ccde82e8dbfb0202fb3f76a2d75be698a4b9152 (patch) | |
tree | 05363c48c556d55f35771cc85da2fdc4b55a2964 | |
parent | 32de6ad74a6e2f8370e34c1c64f3a9e111ad2fd4 (diff) | |
download | mu-1ccde82e8dbfb0202fb3f76a2d75be698a4b9152.tar.gz |
455
-rw-r--r-- | mu.arc | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/mu.arc b/mu.arc index 07a9e5d4..5378cccb 100644 --- a/mu.arc +++ b/mu.arc @@ -493,10 +493,9 @@ (++ rep.routine*!alloc 1000) ;? (tr "after: " rep.routine*!alloc " " rep.routine!alloc) (enq routine running-routines*)) - ; todo: errors should stall a process and let its parent - ; inspect it assert - (assert (m arg.0)) + (unless (m arg.0) + (die (v arg.1))) sleep (let operand arg.0 ;? (tr "sleep " operand) |