You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
13 lines
289 B
Scheme
13 lines
289 B
Scheme
10 years ago
|
(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)
|