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

Standardize name and revert last change

Browse Source 
svn: r6314
This commit is contained in:
Jay McCarthy 2007-05-25 18:23:46 +00:00
parent 8718a70b04
commit c2177d4122
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/web-server/prototype-web-server/server.ss → collects/web-server/prototype-web-server/dispatch-servlets2.ss
View File

@ -1,4 +1,4 @@
(module server mzscheme
(module dispatch-servlets2 mzscheme
(require (lib "kw.ss")
"../private/configuration.ss"
(lib "connection-manager.ss" "web-server" "private")
@ -53,6 +53,7 @@
'(mzscheme
(lib "web-cells.ss" "web-server" "prototype-web-server" "newcont")
(lib "abort-resume.ss" "web-server" "prototype-web-server" "private")
(lib "session.ss" "web-server" "prototype-web-server" "private")
(lib "request.ss" "web-server" "private"))))
(define/kw (make #:key

4
collects/web-server/prototype-web-server/run.ss
View File

@ -8,7 +8,7 @@
(prefix files: (lib "dispatch-files.ss" "web-server" "dispatchers"))
(prefix sequencer: (lib "dispatch-sequencer.ss" "web-server" "dispatchers")))
(require "hardcoded-configuration.ss"
(prefix prototype: "server.ss"))
(prefix servlets2: "dispatch-servlets2.ss"))
(define port 8080)
(define listen-ip #f)
@ -18,7 +18,7 @@
(define read-request http:read-request)
(define dispatch
(sequencer:make
(prototype:make #:servlet-root (paths-servlet (host-paths host-info))
(servlets2:make #:servlet-root (paths-servlet (host-paths host-info))
#:timeouts-servlet-connection (timeouts-servlet-connection (host-timeouts host-info))
#:responders-servlet-loading (responders-servlet-loading (host-responders host-info))
#:responders-servlet (responders-servlet (host-responders host-info))