Skip to content

Instantly share code, notes, and snippets.

@tenderlove
Created May 23, 2012 02:37
Show Gist options
  • Star 1 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save tenderlove/2772939 to your computer and use it in GitHub Desktop.
Save tenderlove/2772939 to your computer and use it in GitHub Desktop.
(require-extension stty)
(define (muck-with-tty file)
(stty file)
(print (read-char file)))
(define file "client.scm")
(call-with-input-file file muck-with-tty)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment