From 0237eb44422ba5c5e9c1ea59ac26a4caec5b3c29 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Wed, 17 Jan 2007 01:18:50 +0000 Subject: [PATCH] no need for string->immutable-string when creating exceptions svn: r5372 original commit: 19c33a8e2abba847bb5fa0ad5b7382ce03c583b2 --- collects/net/tcp-redirect.ss | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/collects/net/tcp-redirect.ss b/collects/net/tcp-redirect.ss index c88828df94..717aa60e1c 100644 --- a/collects/net/tcp-redirect.ss +++ b/collects/net/tcp-redirect.ss @@ -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))