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

rtmp1

Browse Source 
svn: r13357
This commit is contained in:
Jay McCarthy 2009-02-02 18:33:38 +00:00
parent 7ea19b6850
commit e124716005
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/web-server/servlet/setup.ss
View File

@ -77,9 +77,11 @@
(set-servlet-handler! ses (initialize-servlet start))) (set-servlet-handler! ses (initialize-servlet start)))
ses) ses)
(require scheme/runtime-path)
(define-runtime-module-path web-server/private/servlet:module-path web-server/private/servlet)
(define common-module-specs (define common-module-specs
'(web-server/private/servlet (list web-server/private/servlet:module-path
web-server/http)) 'web-server/http))
(define servlet-module-specs (define servlet-module-specs
'(web-server/servlet/web '(web-server/servlet/web
@ -95,7 +97,7 @@
[make-v1.servlet (path-string? integer? (request? . -> . response/c) . -> . servlet?)] [make-v1.servlet (path-string? integer? (request? . -> . response/c) . -> . servlet?)]
[make-v2.servlet (path-string? manager? (request? . -> . response/c) . -> . servlet?)] [make-v2.servlet (path-string? manager? (request? . -> . response/c) . -> . servlet?)]
[make-stateless.servlet (path-string? (request? . -> . response/c) . -> . servlet?)] [make-stateless.servlet (path-string? (request? . -> . response/c) . -> . servlet?)]
[default-module-specs (listof module-path?)]) [default-module-specs (listof (or/c resolved-module-path? module-path?))])
(define (make-default-path->servlet #:make-servlet-namespace [make-servlet-namespace (make-make-servlet-namespace)] (define (make-default-path->servlet #:make-servlet-namespace [make-servlet-namespace (make-make-servlet-namespace)]
#:timeouts-default-servlet [timeouts-default-servlet 30]) #:timeouts-default-servlet [timeouts-default-servlet 30])