From b5018f8315948aee69a08e8c364321819ff9b2bf Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Fri, 9 Jan 2015 00:48:13 -0800 Subject: 513 --- mu.arc | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/mu.arc b/mu.arc index bd55a79f..a0e4db2f 100644 --- a/mu.arc +++ b/mu.arc @@ -240,7 +240,7 @@ (> curr-cycle* rep.routine!sleep.1) until-location-changes (~is rep.routine!sleep.2 (memory* rep.routine!sleep.1)) - )) + )) (on-init (= running-routines* (queue)) ; simple round-robin scheduler @@ -571,7 +571,7 @@ (= rep.routine*!sleep `(for-some-cycles ,wakeup-time))) until-location-changes (= rep.routine*!sleep `(until-location-changes ,(addr arg.1) ,(m arg.1))) - ) + ) ((abort-routine*))) ; cursor-based (text mode) interaction -- cgit 1.4.1-2-gfad0