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 /counters.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 'counters.mu')
| -rw-r--r-- | counters.mu | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/counters.mu b/counters.mu index 0b7a4882..0e414513 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-to-host (("Contents of counters a: " literal))) + ($print (("Contents of counters a: " literal))) (print-integer nil:literal/terminal ares:integer) - (print-primitive-to-host ((" b: " literal))) + ($print ((" b: " literal))) (print-integer nil:literal/terminal bres:integer) - (print-primitive-to-host (("\n" literal))) + ($print (("\n" literal))) ]) ; compare http://www.paulgraham.com/accgen.html |