cs: fix udp-receive!

Closes #2433
This commit is contained in:
Matthew Flatt 2018-12-20 21:24:55 -07:00
parent b38d437a00
commit d14238ae31

View File

@ -198,7 +198,8 @@
(ftype-ref rktio_length_and_addrinfo_t (len) (make-ftype-pointer rktio_length_and_addrinfo_t (ptr->address fs)) 0)) (ftype-ref rktio_length_and_addrinfo_t (len) (make-ftype-pointer rktio_length_and_addrinfo_t (ptr->address fs)) 0))
(define (rktio_recv_address_ref fs) (define (rktio_recv_address_ref fs)
(ftype-ref rktio_length_and_addrinfo_t (address) (make-ftype-pointer rktio_length_and_addrinfo_t (ptr->address fs)) 0)) (make-ptr
(ftype-ref rktio_length_and_addrinfo_t (address) (make-ftype-pointer rktio_length_and_addrinfo_t (ptr->address fs)) 0)))
(define (rktio_identity_to_vector p) (define (rktio_identity_to_vector p)
(let ([p (make-ftype-pointer rktio_identity_t (ptr->address p))]) (let ([p (make-ftype-pointer rktio_identity_t (ptr->address p))])