From 5e6975453d545a32b6fd8cbc98e170a5550a859a Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Sun, 6 May 2012 18:21:53 +0900
Subject: [PATCH] fixing dynamic-wind entry in with-stty

---
 lib/chibi/stty.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/chibi/stty.scm b/lib/chibi/stty.scm
index 964969bf..b4e36669 100644
--- a/lib/chibi/stty.scm
+++ b/lib/chibi/stty.scm
@@ -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