From 26545f29b9c9e39d3ac16e441f5c236ad0767cd0 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Thu, 9 May 2013 12:09:42 -0400 Subject: [PATCH] fix unstable/socket loading in windows closes PR 13743 --- collects/unstable/socket.rkt | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) diff --git a/collects/unstable/socket.rkt b/collects/unstable/socket.rkt index 652a3059fb..7ab87098e6 100644 --- a/collects/unstable/socket.rkt +++ b/collects/unstable/socket.rkt @@ -49,13 +49,14 @@ macosx (64): (_fun #:save-errno 'posix _int _int _int -> _int)) (define-libc connect - (case platform - ((linux86) - (_fun #:save-errno 'posix - _int _linux_sockaddr_un-pointer _int -> _int)) - ((macosx) - (_fun #:save-errno 'posix - _int _macosx_sockaddr_un-pointer _int -> _int)))) + (_fun #:save-errno 'posix + _int + (case platform + ((linux86) _linux_sockaddr_un-pointer) + ((macosx) _macosx_sockaddr_un-pointer) + (else _pointer)) ;; dummy type to avoid error + _int + -> _int)) (define-libc close (_fun #:save-errno 'posix _int -> _int)) @@ -68,7 +69,8 @@ macosx (64): ((linux86) (make-linux_sockaddr_un AF_UNIX path)) ((macosx) - (make-macosx_sockaddr_un (bytes-length path) AF_UNIX path)))) + (make-macosx_sockaddr_un (bytes-length path) AF_UNIX path)) + (else (error 'make-sockaddr "not available")))) (define strerror_r (get-ffi-obj (case platform