diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2015-01-10 13:53:00 -0800 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2015-01-10 13:53:00 -0800 |
| commit | 8b00ce3f5dfcfe3fc0d56c4b248489614aba166d (patch) | |
| tree | 27ecbf31ce35063f62a44f25b06b5787438b9175 | |
| parent | ea0d661bb77ca3a844ff7c7268cd5a9b3266265c (diff) | |
| download | mu-8b00ce3f5dfcfe3fc0d56c4b248489614aba166d.tar.gz | |
530
| -rw-r--r-- | channel.mu | 1 | ||||
| -rw-r--r-- | mu.arc | 4 |
2 files changed, 4 insertions, 1 deletions
diff --git a/channel.mu b/channel.mu index 4fa6adaf..92746a62 100644 --- a/channel.mu +++ b/channel.mu @@ -39,6 +39,7 @@ ]) (function main [ + (default-space:space-address <- new space:literal 30:literal) (chan:channel-address <- init-channel 3:literal) ; create two background 'routines' that communicate by a channel (routine1:integer <- fork consumer:fn nil:literal/globals nil:literal/limit chan:channel-address) diff --git a/mu.arc b/mu.arc index ac998383..a9568bef 100644 --- a/mu.arc +++ b/mu.arc @@ -1132,6 +1132,8 @@ (convert-name arg name)) (each arg oargs (convert-name arg name))))) + (each instr instrs + (trace "cn1" instr)) instrs) ; assign an index to an arg @@ -1853,7 +1855,7 @@ (map add-code:readfile (cut argv (+ it 1))) ;? (= dump-trace* (obj whitelist '("run"))) ;? (= dump-trace* (obj whitelist '("schedule"))) -;? (= dump-trace* (obj whitelist '("cn0"))) +;? (= dump-trace* (obj whitelist '("cn0" "cn1"))) ;? (set dump-trace*) ;? (freeze function*) ;? (prn function*!factorial) |