From 3a5b457c7c1dedf58d98a044a952be92cfd18f55 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Mon, 19 Dec 2011 16:08:01 -0500 Subject: [PATCH] Minor cleanup --- test-raw.rkt | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/test-raw.rkt b/test-raw.rkt index 4737d12..e92437b 100644 --- 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