Ticket #1254: stty-should-not-segfault.patch

stty.scm

@@ -370 +370 @@
 
 (define (stty . args)
 
-  (let* ((port (if (and (pair? args) (port? (car args)))
+  (and-let* ((port (if (and (pair? args) (port? (car args)))
                    (car args)
                    (current-input-port)))
          (attr (get-terminal-attributes port))
@@ -438 +438 @@
 (define (with-stty setting thunk)
   (let* ((port (current-input-port))
          (orig-attrs (get-terminal-attributes port)))
+    (if orig-attrs
     (dynamic-wind
         (lambda ()
           (stty setting))
         thunk
         (lambda ()
           (set-terminal-attributes! port TCSANOW orig-attrs)
-          (free-term-attrs orig-attrs)))))
+              (free-term-attrs orig-attrs)))
+        (thunk))))
 
 )