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

rktio: repair for UDP disconnect

Browse Source
This commit is contained in:
Matthew Flatt 2017-06-17 07:35:09 -06:00
parent 58f463ee1d
commit a3725374ca
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1893,13 +1893,15 @@ static Scheme_Object *udp_bind_or_connect(const char *name, int argc, Scheme_Obj
if (SCHEME_FALSEP(argv[1]) && SCHEME_FALSEP(argv[2])) {
/* DISCONNECT */
if (!rktio_udp_disconnect(scheme_rktio, udp->s)) {
scheme_raise_exn(MZEXN_FAIL_NETWORK,
"%s: can't disconnect\n"
" system error: %R",
name);
if (udp->connected) {
if (!rktio_udp_disconnect(scheme_rktio, udp->s)) {
scheme_raise_exn(MZEXN_FAIL_NETWORK,
"%s: can't disconnect\n"
" system error: %R",
name);
}
udp->connected = 0;
}
udp->connected = 0;
return scheme_void;
}