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