Fixing upgrade header check.

2015-04-18 10:44:44 -07:00
parent e812e3cbbe
commit 946552f79c
1 changed files with 1 additions and 1 deletions
--- a/websockets.scm
+++ b/websockets.scm
@@ -570,7 +570,7 @@
           "ping thread")))

    ; make sure the request meets the spec for websockets
-    (cond ((not (and (eq? (header-value 'connection headers #f) 'upgrade)
+    (cond ((not (and (member 'upgrade (header-values 'connection headers))
                     (string-ci= (car (header-value 'upgrade headers '(""))) "websocket")))
           (signal (make-websocket-exception
                    (make-property-condition 'missing-upgrade-header))))