diff options
| -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) |