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

fix error-message code

Browse Source 
Closes PR 13222
(cherry picked from commit 8f73ebbc36)
This commit is contained in:
Matthew Flatt 2012-10-31 12:17:24 -06:00 committed by Ryan Culpepper
parent 7c49cd5138
commit fd81d53e7b
2 changed files with 18 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/tests/racket/udp.rktl
View File

@ -178,3 +178,17 @@
(test w sync w)) (test w sync w))
(test #t evt? (udp-receive!-evt udp1 us1)) (test #t evt? (udp-receive!-evt udp1 us1))
(test #t evt? (udp-send-to-evt udp1 "127.0.0.1" port #"here's more")) (test #t evt? (udp-send-to-evt udp1 "127.0.0.1" port #"here's more"))
;; check that error-repoting doesn't crash:
(let ()
(define (q)
(define s (udp-open-socket #f #f))
(udp-bind! s #f 5999)
s)
(define s (q))
(err/rt-test (q) exn:fail:network?)
(udp-close s))

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

@ -3225,7 +3225,8 @@ static Scheme_Object *udp_bind_or_connect(const char *name, int argc, Scheme_Obj
" port number: %d\n" " port number: %d\n"
" system error: %E", " system error: %E",
name, name,
port, address ? address : "#f", address ? address : "#f",
port,
SOCK_ERRNO()); SOCK_ERRNO());
return NULL; return NULL;
} }
@ -3257,7 +3258,8 @@ static Scheme_Object *udp_bind_or_connect(const char *name, int argc, Scheme_Obj
" port number: %d\n" " port number: %d\n"
" system error: %E", " system error: %E",
name, name,
port, address ? address : "#f", address ? address : "#f",
port,
SOCK_ERRNO()); SOCK_ERRNO());
return NULL; return NULL;
} }