13 lines
332 B
Scheme
13 lines
332 B
Scheme
(module dispatch-server-sig mzscheme
|
|
(require (lib "unit.ss"))
|
|
|
|
(define-signature dispatch-server^
|
|
(serve
|
|
serve-ports))
|
|
|
|
(define-signature dispatch-server-config^
|
|
(port listen-ip max-waiting initial-connection-timeout
|
|
read-request dispatch))
|
|
|
|
(provide
|
|
dispatch-server^ dispatch-server-config^)) |