24 lines
524 B
Scheme
24 lines
524 B
Scheme
(import chicken scheme posix)
|
|
(use spiffy websockets)
|
|
|
|
(ping-interval 0)
|
|
(drop-incoming-pings #f)
|
|
(propagate-common-errors #f)
|
|
|
|
(handle-not-found
|
|
(lambda (path)
|
|
(with-websocket
|
|
(lambda ()
|
|
(let loop ()
|
|
(receive (data type) (receive-message)
|
|
(unless (eq? type 'connection-close)
|
|
(send-message data type)
|
|
(loop))))))))
|
|
|
|
(debug-log (current-output-port))
|
|
(root-path ".")
|
|
(server-port 8080)
|
|
(start-server)
|
|
|
|
|