diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2015-02-01 00:15:43 -0800 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2015-02-01 00:15:43 -0800 |
commit | 7d2c2d55e83325a5efb66af0a033b94583fca70e (patch) | |
tree | 0bade19ad9230f2aa6076440548b50456c9f6fd8 /graphics.mu | |
parent | 48a74397fb1a967fffa67ffb80005d94ed2ac60c (diff) | |
download | mu-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.mu | 15 |
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) |