[Chicken-janitors] #764: unix-sockets: port-data is set incorrectly

[Chicken Trac]

#764: unix-sockets: port-data is set incorrectly
------------------------+---------------------------------------------------
 Reporter:  syn         |       Owner:       
     Type:  defect      |      Status:  new  
 Priority:  major       |   Milestone:  4.8.0
Component:  extensions  |     Version:  4.7.x
 Keywords:              |  
------------------------+---------------------------------------------------
 The data slot of ports returned by {{{unix-sockets}}}'s {{{io-ports}}}
 procedure is set incorrectly:

 {{{
 #;1> (use unix-sockets)
 ; loading /usr/lib/chicken/6/unix-sockets.import.so ...
 ; loading /usr/lib/chicken/6/easyffi.import.so ...
 ; loading /usr/lib/chicken/6/unix-sockets.so ...
 #;2> (unix-connect "/tmp/foo.sock")
 #<input port "(unix)">
 #<output port "(unix)">
 ; 2 values
 #;3> (##sys#port-data #2)
 #(#(3 #f #f))
 }}}

 The attached patch fixes this by using {{{##sys#set-port-data!}}}. I hope
 this procedure isn't too recent!

 By the way, it looks like {{{unix-sockets}}} depends on {{{easyffi}}}
 merely for the #> <# read syntax. Maybe this dependency could be gotten
 rid of?

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