From 428299d68eac515b31e09a12eab22a92480503b6 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Mon, 19 Dec 2011 16:28:38 -0500 Subject: [PATCH] Print out the character name for a given byte --- test-raw.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/test-raw.rkt b/test-raw.rkt index 126bf11..b38894f 100644 --- a/test-raw.rkt +++ b/test-raw.rkt @@ -18,7 +18,7 @@ (define ch (read-byte)) (display (select-graphic-rendition ch)) (display (clear-to-eol)) - (printf "Byte: ~v\015\012" ch) + (printf "Byte: ~v ~s\015\012" ch (integer->char ch)) (display (select-graphic-rendition)) ;;(flush-output) (if (member ch '(4 8 127)) ;; EOF, C-h, DEL