diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2014-11-06 21:44:16 -0800 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2014-11-06 21:44:16 -0800 |
| commit | 6a16a4e007d557177de3b70afcfb6bc350cf6cd8 (patch) | |
| tree | c5f59b49d74357d4f247f248c4db36c75e980e55 | |
| parent | 45fda26aa14236b3fa6f13bbe0a1a74e4af1a6bb (diff) | |
| download | mu-6a16a4e007d557177de3b70afcfb6bc350cf6cd8.tar.gz | |
244
| -rw-r--r-- | mu.arc | 4 | ||||
| -rw-r--r-- | mu.arc.t | 1 |
2 files changed, 3 insertions, 2 deletions
diff --git a/mu.arc b/mu.arc index 9feea022..dca953e9 100644 --- a/mu.arc +++ b/mu.arc @@ -191,7 +191,7 @@ (while (or (~empty running-routines*) (~empty sleeping-routines*)) (point continue - (each (routine _) sleeping-routines* + (each (routine _) canon.sleeping-routines* (awhen (case rep.routine!sleep.1 literal (> curr-cycle* rep.routine!sleep.0) @@ -861,7 +861,7 @@ (apply prn args)) (def canon (table) - (sort (compare < string:car) (as cons table))) + (sort (compare < [tostring (prn:car _)]) (as cons table))) (def int-canon (table) (sort (compare < car) (as cons table))) diff --git a/mu.arc.t b/mu.arc.t index 5a6881f5..ed267b27 100644 --- a/mu.arc.t +++ b/mu.arc.t @@ -1734,6 +1734,7 @@ (sleep (30 literal)) ((1 integer) <- copy (3 literal))))) ; set to value ;? (= dump-trace* (obj whitelist '("run" "schedule"))) +;? (set dump-trace*) (= scheduling-interval* 1) (run 'f1 'f2) ;? (prn canon.memory*) |