[Chicken-janitors] #885: pty egg: example doesn't work

[Chicken Trac]

#885: pty egg: example doesn't work
------------------------+---------------------------------------------------
 Reporter:  megane      |       Owner:       
     Type:  defect      |      Status:  new  
 Priority:  minor       |   Milestone:  4.8.0
Component:  extensions  |     Version:  4.7.x
 Keywords:  pty         |  
------------------------+---------------------------------------------------
 The example from the egg wiki doesn't work.

 {{{
 $ csi -v && cat ptytest.scm && csi -nbq ptytest.scm

 CHICKEN
 (c)2008-2011 The Chicken Team
 (c)2000-2007 Felix L. Winkelmann
 Version 4.7.5 (rev 0e44970)
 linux-unix-gnu-x86 [ manyargs dload ptables ]
 compiled 2012-07-10 on shiro (Linux)

 (use pty)

 (call-with-pty-process-io "ssh myfirewall"
   (lambda (in out pid)
     (peek-char in)
     (display (gui-get-password) out)
     (newline out)
     (read-line in)
     (display "dhclient 2>/dev/null && echo OK || echo FAIL\n" out)
     (unless (equal? "OK" (read-line in))
       (error "couldn't launch dhclient"))))
 Error: can't read from FD - Resource temporarily unavailable: 4

         Call history:

         <eval>    (call-with-pty-process-io "ssh myfirewall" (lambda (in
 out pid) (peek-char in) (display (gui-get-pas......
         ##sys#substring-index
         pty.scm:196: string-split
         pty.scm:202: process-fork
         pty.scm:231: open-file-io/non-blocking
         ##sys#make-string
         pty.scm:90: make-input-port
         pty.scm:134: make-output-port
         pty.scm:236: proc
         <eval>    (peek-char in)
         pty.scm:94: file-read/maybe
         pty.scm:111: g68
         pty.scm:76: ##sys#update-errno
         ##sys#peek-c-string
         pty.scm:77: ##sys#string-append
         pty.scm:77: ##sys#signal-hook           <--
 }}}

-- 
Ticket URL: <http://bugs.call-cc.org/ticket/885>
Chicken Scheme <http://www.call-with-current-continuation.org/>
Chicken Scheme is a compiler for the Scheme programming language.