From 425a5abac308ab5a0546c7cbae3250df95af89c2 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Sat, 25 Mar 2017 15:19:13 -0400 Subject: [PATCH] Default to empty-string to avoid crash when header entirely absent --- racket/syndicate/drivers/web.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/racket/syndicate/drivers/web.rkt b/racket/syndicate/drivers/web.rkt index b006100..dccccaa 100644 --- a/racket/syndicate/drivers/web.rkt +++ b/racket/syndicate/drivers/web.rkt @@ -95,7 +95,7 @@ (dict-ref (web-request-header-headers req) 'content-type #f)) (define (web-request-header-websocket-upgrade? req) - (equal? (string-downcase (dict-ref (web-request-header-headers req) 'upgrade #f)) "websocket")) + (equal? (string-downcase (dict-ref (web-request-header-headers req) 'upgrade "")) "websocket")) (begin-for-declarations (define-struct-defaults make-web-response-header web-response-header