Revision: 6472 Author: iratqq Date: Mon Jun 21 18:14:30 2010 Log: * scm/socket.scm (tcp-connect): - Return #f when connect failed, not list.
http://code.google.com/p/uim/source/detail?r=6472 Modified: /trunk/scm/socket.scm ======================================= --- /trunk/scm/socket.scm Thu May 6 09:38:31 2010 +++ /trunk/scm/socket.scm Mon Jun 21 18:14:30 2010 @@ -93,21 +93,21 @@ (lambda (res) (call/cc (lambda (fd) - (map (lambda (res0) - (let ((s (socket (addrinfo-ai-family? res0) - (addrinfo-ai-socktype? res0) - (addrinfo-ai-protocol? res0)))) - (if (< s 0) - #f - (if (< (connect s - (addrinfo-ai-addr? res0) - (addrinfo-ai-addrlen? res0)) - 0) - (begin - (file-close s) - #f) - (fd s))))) - res)))))))) + (not (map (lambda (res0) + (let ((s (socket (addrinfo-ai-family? res0) + (addrinfo-ai-socktype? res0) + (addrinfo-ai-protocol? res0)))) + (if (< s 0) + #f + (if (< (connect s + (addrinfo-ai-addr? res0) + (addrinfo-ai-addrlen? res0)) + 0) + (begin + (file-close s) + #f) + (fd s))))) + res))))))))) (define (unix-domain-socket-connect socket-path) (let ((s (socket (addrinfo-ai-family-number '$PF_LOCAL)
