13 lines
290 B
Scheme
13 lines
290 B
Scheme
#lang scheme/base
|
|
(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^) |