diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2014-11-06 15:24:16 -0800 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2014-11-06 15:24:16 -0800 |
commit | f462b986b1b2d2dae4f8b6a7416fb1b995a00d85 (patch) | |
tree | 9776c0ec3086a047e14c3cd987abfb03a13ad2f2 | |
parent | 6f8b711881db8f4a1f30817ce0ce750b903a47a1 (diff) | |
download | mu-f462b986b1b2d2dae4f8b6a7416fb1b995a00d85.tar.gz |
235
-rw-r--r-- | mu.arc | 6 | ||||
-rw-r--r-- | mu.arc.t | 6 |
2 files changed, 5 insertions, 7 deletions
diff --git a/mu.arc b/mu.arc index 6c1154d9..4395bc27 100644 --- a/mu.arc +++ b/mu.arc @@ -162,8 +162,6 @@ (mac caller-arg-idx (routine (o idx 0)) ; assignable `((((rep ,routine) 'call-stack) ,idx) 'caller-arg-idx)) -(= scheduling-interval* 500) - (mac caller-args (routine) ; assignable `((((rep ,routine) 'call-stack) 0) 'args)) @@ -175,7 +173,9 @@ (= completed-routines* (queue)) (= routine* nil) (= abort-routine* (parameter nil)) - (= curr-cycle* 0)) + (= curr-cycle* 0) + (= scheduling-interval* 500) + ) ; like arc's 'point' but you can also call ((abort-routine*)) in nested calls (mac routine-mark body diff --git a/mu.arc.t b/mu.arc.t index 0438033a..e8257606 100644 --- a/mu.arc.t +++ b/mu.arc.t @@ -1665,10 +1665,8 @@ (f2 ((2 integer) <- copy (4 literal)) ((2 integer) <- copy (4 literal))))) -(let old-scheduling-interval scheduling-interval* - (= scheduling-interval* 1) - (after (run 'f1 'f2) - (= scheduling-interval* old-scheduling-interval))) +(= scheduling-interval* 1) +(run 'f1 'f2) (check-trace-contents "scheduler alternates between routines" '(("run" "f1 0") ("run" "f2 0") |