fixing dynamic-wind entry in with-stty

This commit is contained in:
Alex Shinn 2012-05-06 18:21:53 +09:00
parent ce80d45ff8
commit 5e6975453d

View file

@ -235,7 +235,7 @@
(cond
(orig-attrs
(dynamic-wind
(lambda () (stty setting))
(lambda () (stty port setting))
thunk
(lambda () (set-terminal-attributes! port TCSANOW orig-attrs))))
(else