Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-21 14:49:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Don't stty if no terminal attributes.

Browse source
This commit is contained in:
Alex Shinn 2012-04-17 22:15:56 +09:00
parent 19448ce93a
commit ac704414c6
1 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lib/chibi/stty.scm
View file

@ -232,10 +232,15 @@
(define (with-stty setting thunk . o) (define (with-stty setting thunk . o)
(let* ((port (if (pair? o) (car o) (current-input-port))) (let* ((port (if (pair? o) (car o) (current-input-port)))
(orig-attrs (get-terminal-attributes port))) (orig-attrs (get-terminal-attributes port)))
(dynamic-wind (cond
(lambda () (stty setting)) (orig-attrs
thunk (dynamic-wind
(lambda () (set-terminal-attributes! port TCSANOW orig-attrs))))) (lambda () (stty setting))
thunk
(lambda () (set-terminal-attributes! port TCSANOW orig-attrs))))
(else
;; No terminal attributes means this isn't a tty.
(thunk)))))
;;> Run @var{thunk} with the "raw" (no canonical or echo) options ;;> Run @var{thunk} with the "raw" (no canonical or echo) options
;;> needed for a terminal application. ;;> needed for a terminal application.