From 8b00ce3f5dfcfe3fc0d56c4b248489614aba166d Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Sat, 10 Jan 2015 13:53:00 -0800 Subject: 530 --- channel.mu | 1 + mu.arc | 4 +++- 2 files changed, 4 insertions(+), 1 deletion(-) 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) -- cgit 1.4.1-2-gfad0