Update connection timeout close-reason to use name instead of number.

2014-10-05 12:18:26 -07:00
parent b592bd1073
commit c7c8de32f9
1 changed files with 1 additions and 1 deletions
--- 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))