suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

immutable

Browse Source 
svn: r2952
This commit is contained in:
Jay McCarthy 2006-05-16 11:24:15 +00:00
parent 80275f7ace
commit 5c392a8d72
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/web-server/managers/timeouts.ss
View File

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