diff options
Diffstat (limited to 'channel.mu')
| -rw-r--r-- | channel.mu | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/channel.mu b/channel.mu index 854ab858..9c5ca0f2 100644 --- a/channel.mu +++ b/channel.mu @@ -13,9 +13,8 @@ (print-primitive (("\n" literal))) ; 'box' n into a dynamically typed 'tagged value' because that's what ; channels take - (n2:integer-address <- new integer:literal) - (n2:integer-address/deref <- copy n:integer) - (n3:tagged-value-address <- init-tagged-value integer-address:literal n2:integer-address) + (n2:integer <- copy n:integer) + (n3:tagged-value-address <- init-tagged-value integer:literal n2:integer) (chan:channel-address/deref <- write chan:channel-address n3:tagged-value-address/deref) (n:integer <- add n:integer 1:literal) (loop) @@ -30,10 +29,10 @@ ; read a tagged value from the channel (x:tagged-value chan:channel-address/deref <- read chan:channel-address) ; unbox the tagged value into an integer - (n2:integer-address <- maybe-coerce x:tagged-value integer-address:literal) + (n2:integer <- maybe-coerce x:tagged-value integer:literal) ; other threads might get between these prints (print-primitive (("consume: " literal))) - (print-primitive n2:integer-address/deref) + (print-primitive n2:integer) (print-primitive (("\n" literal))) (loop) } |