misc-deps
/
racket-ansi
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Minor cleanup

This commit is contained in:
Tony Garnock-Jones 2011-12-19 16:08:01 -05:00
parent ca1e0c79af
commit 3a5b457c7c
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
test-raw.rkt
View File

@ -8,9 +8,8 @@
(let loop () (let loop ()
(define ch (read-byte)) (define ch (read-byte))
(display (select-graphic-rendition ch)) (display (select-graphic-rendition ch))
(printf "Byte: ~v" ch)
(display (clear-to-eol)) (display (clear-to-eol))
(display "\015\012") (printf "Byte: ~v\015\012" ch)
(display (select-graphic-rendition)) (display (select-graphic-rendition))
;;(flush-output) ;;(flush-output)
(if (member ch '(4 8 127)) ;; EOF, C-h, DEL (if (member ch '(4 8 127)) ;; EOF, C-h, DEL