diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2015-01-11 18:44:32 -0800 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2015-01-11 18:44:32 -0800 |
| commit | 171f14faea24aa4948d2e25dd51561e6656c018b (patch) | |
| tree | 667b51319e7eb0d1688d05cd738a6af632069293 /mu.arc | |
| parent | e9a5385bf2620662ed67095084199448011e84ea (diff) | |
| download | mu-171f14faea24aa4948d2e25dd51561e6656c018b.tar.gz | |
533
Diffstat (limited to 'mu.arc')
| -rw-r--r-- | mu.arc | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/mu.arc b/mu.arc index 3487b10f..2b612941 100644 --- a/mu.arc +++ b/mu.arc @@ -313,6 +313,9 @@ (do (trace "schedule" "pushing " top.routine*!fn-name " to sleep queue") ; keep the clock ticking at rep.routine*!running-since (set sleeping-routines*.routine*)) + rep.routine*!error + (do (trace "schedule" "done with dead routine " top.routine*!fn-name) + (push routine* completed-routines*)) empty.routine* (do (trace "schedule" "done with routine") (push routine* completed-routines*)) @@ -374,7 +377,6 @@ (tr "die: " msg) (= rep.routine*!error msg) (= rep.routine*!stack-trace rep.routine*!call-stack) - (wipe rep.routine*!call-stack) (iflet abort-continuation (abort-routine*) (abort-continuation))) |