summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThomas Hintz <t@thintz.com>2015-04-18 10:44:44 -0700
committerThomas Hintz <t@thintz.com>2015-04-18 10:44:44 -0700
commit946552f79c4fbd683403f99b51882685772ae1cc (patch)
tree9152ea9c89479691163c3ab27790d0843d1cf9ab
parente812e3cbbef5448f619148c708a2a4063860a914 (diff)
downloadwebsockets-946552f79c4fbd683403f99b51882685772ae1cc.tar.gz
Fixing upgrade header check.
-rw-r--r--websockets.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/websockets.scm b/websockets.scm
index ba629b3..1e676b6 100644
--- 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))))