sco/pokerth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Testing two test cases in parallel.

Browse Source
This commit is contained in:
lotodore
2007-11-08 21:42:22 +00:00
parent 1ca9b5e18a
commit 172a566c79
3 changed files with 19 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/sock.scm
+1 -1
View File
@@ -140,7 +140,7 @@
(lambda (sock buf)
(let ((ret (sctp-recvmsg! (car sock) buf)))
(let ((info (list-ref ret 3))) ; Return number of bytes, stream # and PPID
(list (car ret) (ntohs (car info)) (ntohl (list-ref info 2)))))))
(list (car ret) (car info) (ntohl (list-ref info 2)))))))
#!
(sock-send (car (sock-accept (sock-bind-listen (sock-create-tcp AF_INET) "127.0.0.1" 5555 5))) "Hallo")