diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2015-01-10 13:20:13 -0800 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2015-01-10 13:20:13 -0800 |
commit | 9c2ed239561c069beba0953616ddab15ac21265b (patch) | |
tree | 0c26cc3d21fa51aa0c72169f42c7bd7323967b84 /mu.arc | |
parent | f1737674fc48f5bbfd5a2053fa8e0285c8e67107 (diff) | |
download | mu-9c2ed239561c069beba0953616ddab15ac21265b.tar.gz |
528
Diffstat (limited to 'mu.arc')
-rw-r--r-- | mu.arc | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/mu.arc b/mu.arc index 70d4b534..dcbf5338 100644 --- a/mu.arc +++ b/mu.arc @@ -241,12 +241,12 @@ `((((rep ,routine) 'call-stack) 0) 'results)) (def waiting-for-exact-cycle? (routine) - (is 'for-some-cycles rep.routine!sleep.0)) + (is 'until rep.routine!sleep.0)) (def ready-to-wake-up (routine) (assert no.routine*) (case rep.routine!sleep.0 - for-some-cycles + until (> curr-cycle* rep.routine!sleep.1) until-location-changes (~is rep.routine!sleep.2 (memory* rep.routine!sleep.1)) @@ -584,7 +584,7 @@ for-some-cycles (let wakeup-time (+ curr-cycle* (v arg.1)) (trace "run" "sleeping until " wakeup-time) ; TODO - (= rep.routine*!sleep `(for-some-cycles ,wakeup-time))) + (= rep.routine*!sleep `(until ,wakeup-time))) until-location-changes (= rep.routine*!sleep `(until-location-changes ,(addr arg.1) ,(m arg.1))) ; else |