Print out the character name for a given byte

2011-12-19 16:28:38 -05:00 · 2011-12-19 16:28:38 -05:00 · 428299d68e
parent 33cca087ad
commit 428299d68e
1 changed files with 1 additions and 1 deletions
--- 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