From f1737674fc48f5bbfd5a2053fa8e0285c8e67107 Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Sat, 10 Jan 2015 13:15:10 -0800
Subject: [PATCH] 527

---
 mu.arc | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/mu.arc b/mu.arc
index 5aa3e7f6..70d4b534 100644
--- a/mu.arc
+++ b/mu.arc
@@ -578,9 +578,6 @@
                     (= rep.routine!limit (when (len> arg 2) (m arg.2)))
                     (enq routine running-routines*)
                     rep.routine!id)
-                assert
-                  (unless (m arg.0)
-                    (die (v arg.1)))
                 sleep
                   (do
                     (case (v arg.0)
@@ -594,6 +591,9 @@
                         (die "badly formed 'sleep' call @(tostring:prn (body.routine* pc.routine*))")
                       )
                     ((abort-routine*)))
+                assert
+                  (unless (m arg.0)
+                    (die (v arg.1)))  ; other routines will be able to look at the error status
 
                 ; cursor-based (text mode) interaction
                 clear-screen