suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix unstable/socket loading in windows

Browse Source 
closes PR 13743
This commit is contained in:
Ryan Culpepper 2013-05-09 12:09:42 -04:00
parent 1c3cbce0af
commit 26545f29b9
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
collects/unstable/socket.rkt
View File

@ -49,13 +49,14 @@ macosx (64):
(_fun #:save-errno 'posix (_fun #:save-errno 'posix
_int _int _int -> _int)) _int _int _int -> _int))
(define-libc connect (define-libc connect
(case platform (_fun #:save-errno 'posix
((linux86) _int
(_fun #:save-errno 'posix (case platform
_int _linux_sockaddr_un-pointer _int -> _int)) ((linux86) _linux_sockaddr_un-pointer)
((macosx) ((macosx) _macosx_sockaddr_un-pointer)
(_fun #:save-errno 'posix (else _pointer)) ;; dummy type to avoid error
_int _macosx_sockaddr_un-pointer _int -> _int)))) _int
-> _int))
(define-libc close (define-libc close
(_fun #:save-errno 'posix (_fun #:save-errno 'posix
_int -> _int)) _int -> _int))
@ -68,7 +69,8 @@ macosx (64):
((linux86) ((linux86)
(make-linux_sockaddr_un AF_UNIX path)) (make-linux_sockaddr_un AF_UNIX path))
((macosx) ((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 (define strerror_r
(get-ffi-obj (case platform (get-ffi-obj (case platform