diff options
-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") |