original commit: 71b026d8e69ce6b44e0d9150c90f095ea6f2641e
This commit is contained in:
Robby Findler 2004-04-21 19:20:10 +00:00
parent a1d43601c2
commit 6b82080917

View File

@ -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))))))