parent
b38d437a00
commit
d14238ae31
|
@ -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))])
|
||||||
|
|
Loading…
Reference in New Issue
Block a user