From 5c392a8d72813fe13b3e9e3aff94a335083a8d57 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Tue, 16 May 2006 11:24:15 +0000 Subject: [PATCH] immutable svn: r2952 --- collects/web-server/managers/timeouts.ss | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/collects/web-server/managers/timeouts.ss b/collects/web-server/managers/timeouts.ss index 616137a5cc..6b90c145c3 100644 --- a/collects/web-server/managers/timeouts.ss +++ b/collects/web-server/managers/timeouts.ss @@ -49,7 +49,8 @@ (hash-table-get instances instance-id (lambda () (raise (make-exn:fail:servlet-manager:no-instance - (format "No instance for id: ~a" instance-id) + (string->immutable-string + (format "No instance for id: ~a" instance-id)) (current-continuation-marks) instance-expiration-handler))))) (increment-timer! (instance-timer instance) @@ -96,7 +97,8 @@ (hash-table-get htable a-k-id (lambda () (raise (make-exn:fail:servlet-manager:no-continuation - (format "No continuation for id: ~a" a-k-id) + (string->immutable-string + (format "No continuation for id: ~a" a-k-id)) (current-continuation-marks) instance-expiration-handler)))) [(list salt k expiration-handler k-timer) @@ -105,7 +107,8 @@ (if (or (not (eq? salt a-salt)) (not k)) (raise (make-exn:fail:servlet-manager:no-continuation - (format "No continuation for id: ~a" a-k-id) + (string->immutable-string + (format "No continuation for id: ~a" a-k-id)) (current-continuation-marks) expiration-handler)) k)])]))