about summary refs log tree commit diff stats
path: root/graphics.mu
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2015-02-01 00:15:43 -0800
committerKartik K. Agaram <vc@akkartik.com>2015-02-01 00:15:43 -0800
commit7d2c2d55e83325a5efb66af0a033b94583fca70e (patch)
tree0bade19ad9230f2aa6076440548b50456c9f6fd8 /graphics.mu
parent48a74397fb1a967fffa67ffb80005d94ed2ac60c (diff)
downloadmu-7d2c2d55e83325a5efb66af0a033b94583fca70e.tar.gz
690 - convention: '$' commands for debugging only
Swap printing generalized objects using arc's infrastructure to be the
$-prefixed debug helper, while the erstwhile $print-key-to-host becomes
the primitive print-character to host.
Diffstat (limited to 'graphics.mu')
-rw-r--r--graphics.mu15
1 files changed, 8 insertions, 7 deletions
diff --git a/graphics.mu b/graphics.mu
index 191e5d8e..f25395ef 100644
--- a/graphics.mu
+++ b/graphics.mu
@@ -7,15 +7,16 @@
     (loop-unless click?:boolean)
     (x:integer <- get pos:integer-integer-pair 0:offset)
     (y:integer <- get pos:integer-integer-pair 1:offset)
-;?     (print-primitive-to-host (("AAA " literal)))
-;?     (print-primitive-to-host x:integer)
-;?     (print-primitive-to-host ((", " literal)))
-;?     (print-primitive-to-host y:integer)
-;?     (print-primitive-to-host (("\n" literal)))
+;?     ($print (("AAA " literal)))
+;?     ($print x:integer)
+;?     ($print ((", " literal)))
+;?     ($print y:integer)
+;?     ($print (("\n" literal)))
     (print-integer nil:literal/terminal x:integer)
-    (print-primitive-to-host ((", " literal)))
+    (print-character nil:literal/terminal ((#\, literal)))
+    (print-character nil:literal/terminal ((#\space literal)))
     (print-integer nil:literal/terminal y:integer)
-    (print-primitive-to-host (("\n" literal)))
+    (print-character nil:literal/terminal ((#\newline literal)))
     (loop)
   }
   (window-off)