about summary refs log tree commit diff stats
path: root/channel.mu
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2015-01-17 17:00:44 -0800
committerKartik K. Agaram <vc@akkartik.com>2015-01-17 17:00:44 -0800
commit4b62edd8a63cfdde37b0537c9be1e91062bb2892 (patch)
treeaa714446d5890b25348c54c6f5fe9a7277165f28 /channel.mu
parent7990aea904686272fb50bb81cea8f60716901b3a (diff)
downloadmu-4b62edd8a63cfdde37b0537c9be1e91062bb2892.tar.gz
578 - switch to non-polymorphic 'print' functions
Also clean up various prints from last few commits.
As a convention, for debugging we always print directly to host.
Diffstat (limited to 'channel.mu')
-rw-r--r--channel.mu4
1 files changed, 2 insertions, 2 deletions
diff --git a/channel.mu b/channel.mu
index 0dd71ccc..88055398 100644
--- a/channel.mu
+++ b/channel.mu
@@ -9,7 +9,7 @@
     (break-unless done?:boolean)
     ; other threads might get between these prints
     (print-primitive-to-host (("produce: " literal)))
-    (print-primitive nil:literal/terminal n:integer)
+    (print-integer nil:literal/terminal n:integer)
     (print-primitive-to-host (("\n" literal)))
     ; 'box' n into a dynamically typed 'tagged value' because that's what
     ; channels take
@@ -32,7 +32,7 @@
     (n2:integer <- maybe-coerce x:tagged-value integer:literal)
     ; other threads might get between these prints
     (print-primitive-to-host (("consume: " literal)))
-    (print-primitive nil:literal/terminal n2:integer)
+    (print-integer nil:literal/terminal n2:integer)
     (print-primitive-to-host (("\n" literal)))
     (loop)
   }