no need for the runtime path too
svn: r17421
This commit is contained in:
parent
8d246defb5
commit
e813d1aa8b
|
@ -257,8 +257,7 @@
|
||||||
;; "web-server/servlet-env.ss", and parts from `serve/launch/wait' in
|
;; "web-server/servlet-env.ss", and parts from `serve/launch/wait' in
|
||||||
;; "web-server/servlet-dispatch.ss"
|
;; "web-server/servlet-dispatch.ss"
|
||||||
|
|
||||||
(require scheme/runtime-path
|
(require web-server/web-server
|
||||||
web-server/web-server
|
|
||||||
web-server/servlet-dispatch
|
web-server/servlet-dispatch
|
||||||
(prefix-in lift: web-server/dispatchers/dispatch-lift)
|
(prefix-in lift: web-server/dispatchers/dispatch-lift)
|
||||||
(prefix-in fsmap: web-server/dispatchers/filesystem-map)
|
(prefix-in fsmap: web-server/dispatchers/filesystem-map)
|
||||||
|
@ -268,8 +267,6 @@
|
||||||
net/tcp-sig
|
net/tcp-sig
|
||||||
net/ssl-tcp-unit)
|
net/ssl-tcp-unit)
|
||||||
|
|
||||||
(define-runtime-path default-web-root '(lib "web-server/default-web-root"))
|
|
||||||
|
|
||||||
(define (run-servlet port)
|
(define (run-servlet port)
|
||||||
(serve
|
(serve
|
||||||
#:port port #:listen-ip #f
|
#:port port #:listen-ip #f
|
||||||
|
|
Loading…
Reference in New Issue
Block a user