Ticket #764: fix-setting-of-port-data.patch

unix-sockets.scm

@@ -263 +263 @@
         (##sys#setslot out 3 "(unix)")
         (##sys#setslot in 7 'socket)
         (##sys#setslot out 7 'socket)
-        (##sys#setslot (##sys#port-data in) 0 data)
-        (##sys#setslot (##sys#port-data out) 0 data)
+        (##sys#set-port-data! in data)
+        (##sys#set-port-data! out data)
         (values in out) ) ) ) )
 
 (define (unix-listen filename #!optional (backlog 10))