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

Fixing error discovered by Steven Lyde

Browse Source
This commit is contained in:
Jay McCarthy 2012-09-19 15:56:25 -06:00
parent e6a25f65ca
commit 661079aab6
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/web-server/managers/lru.rkt
View File

@ -125,7 +125,9 @@
(hash-set! htable a-k-id (hash-set! htable a-k-id
(list salt k expiration-handler (add1 count)))) (list salt k expiration-handler (add1 count))))
(if (or (not (eq? salt a-salt)) (if (or (not (eq? salt a-salt))
(not k)) (not k)
(and (custodian-box? k)
(not (custodian-box-value k))))
(raise (make-exn:fail:servlet-manager:no-continuation (raise (make-exn:fail:servlet-manager:no-continuation
(format "No continuation for id: ~a" a-k-id) (format "No continuation for id: ~a" a-k-id)
(current-continuation-marks) (current-continuation-marks)

4
collects/web-server/managers/timeouts.rkt
View File

@ -107,7 +107,9 @@
(increment-timer! k-timer (increment-timer! k-timer
continuation-timer-length)) continuation-timer-length))
(if (or (not (eq? salt a-salt)) (if (or (not (eq? salt a-salt))
(not k)) (not k)
(and (custodian-box? k)
(not (custodian-box-value k))))
(raise (make-exn:fail:servlet-manager:no-continuation (raise (make-exn:fail:servlet-manager:no-continuation
(format "No continuation for id: ~a" a-k-id) (format "No continuation for id: ~a" a-k-id)
(current-continuation-marks) (current-continuation-marks)