From c7c8de32f9363e652755fc5c59d8f0297e933456 Mon Sep 17 00:00:00 2001 From: Thomas Hintz Date: Sun, 5 Oct 2014 12:18:26 -0700 Subject: [PATCH] Update connection timeout close-reason to use name instead of number. --- websockets.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/websockets.scm b/websockets.scm index 4a78cb0..1e545e9 100644 --- a/websockets.scm +++ b/websockets.scm @@ -623,7 +623,7 @@ static const uint8_t utf8d[] = { (begin (thread-signal! (websocket-user-thread ws) (make-websocket-exception (make-property-condition 'connection-timeout))) - (close-websocket ws close-reason: 1001)))))))) + (close-websocket ws close-reason: 'going-away)))))))) (when (> (ping-interval) 0) (thread-start! ping-thread))