id	summary	reporter	owner	description	type	status	priority	milestone	component	version	resolution	keywords	cc	difficulty
885	pty egg: example doesn't work	megane	Alex Shinn	"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	  	<--
}}}"	defect	closed	minor		extensions	4.7.x	fixed	pty