about summary refs log tree commit diff stats
path: root/counters.mu
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2015-01-16 16:35:08 -0800
committerKartik K. Agaram <vc@akkartik.com>2015-01-16 16:35:08 -0800
commitcbecfe10f9754dbec52659c15834aefcb3d5d2ac (patch)
treea2162478a5aacae9d3cc8767bb102984b9e63718 /counters.mu
parentd2db5af7b82a935dc2929a1db2e6d13db660be89 (diff)
downloadmu-cbecfe10f9754dbec52659c15834aefcb3d5d2ac.tar.gz
574 - printing string literals is a hack; hard-code it in for now
Diffstat (limited to 'counters.mu')
-rw-r--r--counters.mu6
1 files changed, 3 insertions, 3 deletions
diff --git a/counters.mu b/counters.mu
index 90805639..243d22d5 100644
--- a/counters.mu
+++ b/counters.mu
@@ -23,11 +23,11 @@
   (bres:integer <- increment-counter b:space-address 2:literal)
   (ares:integer <- increment-counter a:space-address 1:literal)
   ; check results
-  (print-primitive nil:literal/terminal (("Contents of counters a: " literal)))
+  (print-primitive-to-host (("Contents of counters a: " literal)))
   (print-primitive nil:literal/terminal ares:integer)
-  (print-primitive nil:literal/terminal ((" b: " literal)))
+  (print-primitive-to-host ((" b: " literal)))
   (print-primitive nil:literal/terminal bres:integer)
-  (print-primitive nil:literal/terminal (("\n" literal)))
+  (print-primitive-to-host (("\n" literal)))
  ])
 
 ; compare http://www.paulgraham.com/accgen.html