Minor cleanup

2011-12-19 16:08:01 -05:00 · 2011-12-19 16:08:01 -05:00 · 3a5b457c7c
parent ca1e0c79af
commit 3a5b457c7c
1 changed files with 1 additions and 2 deletions
--- a/test-raw.rkt
+++ b/test-raw.rkt
@ -8,9 +8,8 @@
  (let loop ()
    (define ch (read-byte))
    (display (select-graphic-rendition ch))
-    (printf "Byte: ~v" ch)
    (display (clear-to-eol))
-    (display "\015\012")
+    (printf "Byte: ~v\015\012" ch)
    (display (select-graphic-rendition))
    ;;(flush-output)
    (if (member ch '(4 8 127)) ;; EOF, C-h, DEL