Re: [Chicken-users] segv with stty egg

[Christian Kellermann]

Maybe the following patch is a suitable solution?

Index: stty.scm
===================================================================
--- stty.scm    (revision 26267)
+++ stty.scm    (working copy)
@@ -367,16 +367,16 @@
 ;; high-level interface

 (define (stty . args)
+
+  (and-let* ((port (if (and (pair? args) (port? (car args)))
+                       (car args)
+                       (current-input-port)))
+             (attr (get-terminal-attributes port))
+             (iflag (term-attrs-iflag attr))
+             (oflag (term-attrs-oflag attr))
+             (cflag (term-attrs-cflag attr))
+             (lflag (term-attrs-lflag attr)))

-  (let* ((port (if (and (pair? args) (port? (car args)))
-                   (car args)
-                   (current-input-port)))
-         (attr (get-terminal-attributes port))
-         (iflag (term-attrs-iflag attr))
-         (oflag (term-attrs-oflag attr))
-         (cflag (term-attrs-cflag attr))
-         (lflag (term-attrs-lflag attr)))
-
     ;; parse change requests
     (let lp ((lst (if (and (pair? args) (port? (car args))) (cdr args) args))
              (flag #t))


--
9 out of 10 voices in my head say, that I am crazy,
one is humming.