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

Old nonsense notes

Browse Source 
svn: r6645
This commit is contained in:
Jay McCarthy 2007-06-13 21:14:26 +00:00
parent 2b831883bc
commit c4bc63f641
1 changed files with 0 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/web-server/servlet/web.ss
View File

@ -50,7 +50,6 @@
(list instance/n (list instance/n
k-id/n k-id/n
salt/n) salt/n)
; XXX: Maybe log this in some way?
#f))])))) #f))]))))
;; insert-param: url string -> string ;; insert-param: url string -> string
@ -110,12 +109,6 @@
;; send a response and clear the continuation table ;; send a response and clear the continuation table
(define (send/finish resp) (define (send/finish resp)
(clear-continuation-table!) (clear-continuation-table!)
; If we readjust the timeout to something small, the session will expire shortly
; we cannot wait for send/back to return, because it doesn't
; Also, we cannot get the initial-connection-timeout variable from here
; In the future, we should use the servlet's specific default-timeout
; XXX
(adjust-timeout! 10)
(send/back resp)) (send/back resp))
;; send/suspend: (url -> response) [(request -> response)] -> request ;; send/suspend: (url -> response) [(request -> response)] -> request