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

10 years ago · c7c8de32f9
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))