|
(import chicken scheme)
|
|
(use spiffy websockets)
|
|
|
|
(handle-not-found
|
|
(lambda (path)
|
|
(when (string= path "/web-socket")
|
|
(with-websocket
|
|
(lambda ()
|
|
(send-message (string-append "you said: " (receive-message))))))))
|
|
|
|
(root-path ".")
|
|
(start-server port: 8080)
|