websocket header trouble pasted by sethalves on Tue Jun 24 20:48:37 2014

    (with-headers
     `((upgrade ("WebSocket" . #f))
       (connection (upgrade))
       (sec-websocket-accept (,ws-handshake)))
     (lambda ()
       (send-response status: 'switching-protocols)))


Server: Spiffy/5.4 (Running on Chicken 4.9.1)
Upgrade: WebSocket
Connection: Upgrade=()
Sec-Websocket-Accept: 8V8X2Mvf4Oegungm6V2Waqitrkq==()
Content-Length: 0
Date: Tue, 24 Jun 2014 18:47:26 GMT

try this pasted by andyjpb on Tue Jun 24 20:57:41 2014

    (with-headers
     `((upgrade ("WebSocket" . #f))
       (connection (upgrade . #f))
       (sec-websocket-accept (,ws-handshake . #f)))
     (lambda ()
       (send-response status: 'switching-protocols)))

result pasted by sethalves on Tue Jun 24 21:07:42 2014

HTTP/1.1 101 Switching Protocols
Content-Type: text/html
Server: Spiffy/5.4 (Running on Chicken 4.9.1)
Upgrade: WebSocket
Connection: Upgrade=#f
Sec-Websocket-Accept: Bd/Dgvzzjdr9Cuzs1Oabbuwegeu==#f
Content-Length: 0
Date: Tue, 24 Jun 2014 19:06:58 GMT

almost works added by sethalves on Tue Jun 24 22:18:51 2014

    (with-headers
     `((upgrade ("WebSocket" . #f))
       (connection (upgrade . #t))
       (sec-websocket-accept (,ws-handshake . #t)))
     (lambda ()
       (send-response status: 'switching-protocols)))


HTTP/1.1 101 Switching Protocols
Content-Type: text/html
Server: Spiffy/5.4 (Running on Chicken 4.9.1)
Upgrade: WebSocket
Connection: Upgrade
Sec-Websocket-Accept: "L3Sqgm3G+I8Gn9Wommiibzx6Upe="
Content-Length: 0
Date: Tue, 24 Jun 2014 19:09:54 GMT