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
(lambda ()
(raise (make-exn:fail:network
(string->immutable-string
(format "tcp-connect: connection to ~a, port ~a failed (nobody is listening)"
hostname-string port))
(format "tcp-connect: connection to ~a, port ~a failed (nobody is listening)"
hostname-string port)
(current-continuation-marks))))))
(cons to-in to-out))
(values from-in from-out))