no need for string->immutable-string when creating exceptions

svn: r5372

original commit: 19c33a8e2a
This commit is contained in:
Eli Barzilay 2007-01-17 01:18:50 +00:00
parent 3996eefb9a
commit 0237eb4442

View File

@ -92,9 +92,8 @@
port port
(lambda () (lambda ()
(raise (make-exn:fail:network (raise (make-exn:fail:network
(string->immutable-string (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))))))
(cons to-in to-out)) (cons to-in to-out))
(values from-in from-out)) (values from-in from-out))