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

Fixing servlets/ bug

Browse Source 
svn: r1021
This commit is contained in:
Jay McCarthy 2005-10-07 23:53:00 +00:00
parent d4b6a1e120
commit 7b6f89f066
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/web-server/dispatch-servlets.ss
View File

@ -94,9 +94,13 @@
conn req (lambda () (suspend #t))) conn req (lambda () (suspend #t)))
sema sema
(start-timer 0 void))] (start-timer 0 void))]
[real-servlet-path (url-path->path [real-servlet-path (with-handlers ([void (lambda (e)
(raise (make-exn:fail:filesystem:exists:servlet
(exn-message e)
(exn-continuation-marks e))))])
(url-path->path
(paths-servlet (host-paths host-info)) (paths-servlet (host-paths host-info))
(url-path->string (url-path uri)))] (url-path->string (url-path uri))))]
[servlet-exit-handler (make-servlet-exit-handler inst)]) [servlet-exit-handler (make-servlet-exit-handler inst)])
(parameterize ([current-directory (get-servlet-base-dir real-servlet-path)] (parameterize ([current-directory (get-servlet-base-dir real-servlet-path)]
[current-custodian servlet-custodian] [current-custodian servlet-custodian]