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

tcp-addresses: fix result for a connection peer

Browse Source 
In the rktio conversion, the peer-address results were incorrectly
wired to the local-address function.
This commit is contained in:
Matthew Flatt 2017-08-18 09:25:37 -06:00
parent d6fdabd691
commit 93ea42d7b7
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pkgs/racket-test-core/tests/racket/file.rktl
View File

@ -1360,6 +1360,8 @@
(define (listen-port x)
(let-values ([(la lp pa pp) (tcp-addresses x #t)])
(test #t exact-integer? lp)
(test #t equal? 0 pp)
lp))
(define (cust-test open)
@ -1495,6 +1497,10 @@
[(r2 w2) (if evt?
(apply values (sync (tcp-accept-evt l)))
(tcp-accept l))])
(let-values ([(la1 lp1 pa1 pp1) (tcp-addresses r1 #t)]
[(la2 lp2 pa2 pp2) (tcp-addresses r2 #t)])
(test #t equal? lp1 pp2)
(test #t equal? pp1 lp2))
(test #t tcp-port? r1)
(test #t tcp-port? r2)
(test #t tcp-port? w1)

2
racket/src/racket/src/network.c
View File

@ -1381,7 +1381,7 @@ static Scheme_Object *tcp_addresses(int argc, Scheme_Object *argv[])
" system error: %R");
if (socket)
peer_names = rktio_socket_address(scheme_rktio, socket);
peer_names = rktio_socket_peer_address(scheme_rktio, socket);
else
peer_names = NULL;