diff options
Diffstat (limited to 'channel.mu')
-rw-r--r-- | channel.mu | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/channel.mu b/channel.mu index 92746a62..ea6c89a8 100644 --- a/channel.mu +++ b/channel.mu @@ -8,9 +8,9 @@ (done?:boolean <- less-than n:integer 5:literal) (break-unless done?:boolean) ; other threads might get between these prints - (print-primitive (("produce: " literal))) - (print-primitive n:integer) - (print-primitive (("\n" literal))) + (print-primitive nil:literal/terminal (("produce: " literal))) + (print-primitive nil:literal/terminal n:integer) + (print-primitive nil:literal/terminal (("\n" literal))) ; 'box' n into a dynamically typed 'tagged value' because that's what ; channels take (n2:integer <- copy n:integer) @@ -31,9 +31,9 @@ ; unbox the tagged value into an integer (n2:integer <- maybe-coerce x:tagged-value integer:literal) ; other threads might get between these prints - (print-primitive (("consume: " literal))) - (print-primitive n2:integer) - (print-primitive (("\n" literal))) + (print-primitive nil:literal/terminal (("consume: " literal))) + (print-primitive nil:literal/terminal n2:integer) + (print-primitive nil:literal/terminal (("\n" literal))) (loop) } ]) |