.
original commit: 71b026d8e69ce6b44e0d9150c90f095ea6f2641e
This commit is contained in:
parent
a1d43601c2
commit
6b82080917
|
@ -75,7 +75,7 @@
|
||||||
port-table
|
port-table
|
||||||
port
|
port
|
||||||
(lambda ()
|
(lambda ()
|
||||||
(raise (make-exn:i/o:tcp
|
(raise (make-exn:fail:network
|
||||||
(format "tcp-connect: connection to ~a, port ~a failed (nobody is listening)"
|
(format "tcp-connect: connection to ~a, port ~a failed (nobody is listening)"
|
||||||
hostname-string port)
|
hostname-string port)
|
||||||
(current-continuation-marks))))))
|
(current-continuation-marks))))))
|
||||||
|
|
Loading…
Reference in New Issue
Block a user