From 68c45cb8e68df88dc6a3f7a9f11a0b764fc31cd7 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Sun, 28 Dec 2014 17:12:10 -0800 Subject: 458 --- channel.mu | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/channel.mu b/channel.mu index 0ee53774..cb1721af 100644 --- a/channel.mu +++ b/channel.mu @@ -15,7 +15,7 @@ ; channels take (n2:integer-address <- new integer:literal) (n2:integer-address/deref <- copy n:integer) - (n3:tagged-value-address <- new-tagged-value integer-address:literal n2:integer-address) + (n3:tagged-value-address <- init-tagged-value integer-address:literal n2:integer-address) (chan:channel-address/deref <- write chan:channel-address n3:tagged-value-address/deref) (n:integer <- add n:integer 1:literal) (loop) @@ -40,9 +40,9 @@ ]) (function main [ - (chan:channel-address <- new-channel 3:literal) + (chan:channel-address <- init-channel 3:literal) ; create two background 'routines' that communicate by a channel - (fork consumer:fn chan:channel-address) - (fork producer:fn chan:channel-address) + (fork consumer:fn nil:literal chan:channel-address) + (fork producer:fn nil:literal chan:channel-address) (sleep 2000:literal) ; wait for forked routines to effect the transfer ]) -- cgit 1.4.1-2-gfad0