diff options
author | Matthew Wolff <matthewjwolff@gmail.com> | 2024-05-08 19:38:02 -0500 |
---|---|---|
committer | David Thompson <dthompson2@worcester.edu> | 2024-05-09 07:51:56 -0400 |
commit | 438d87675d9ef18695475685ff36ff75a5506466 (patch) | |
tree | d2d49e3d0f19377b251bd27f3e1a9e52cbae79f2 /web/socket/frame.scm | |
parent | 0ab74ba68c57f7b16832c3549d9939a3c78d7da4 (diff) |
Distinguish close frames from timeouts.
Diffstat (limited to 'web/socket/frame.scm')
-rw-r--r-- | web/socket/frame.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/web/socket/frame.scm b/web/socket/frame.scm index 4c15a09..7f52e96 100644 --- a/web/socket/frame.scm +++ b/web/socket/frame.scm @@ -68,7 +68,8 @@ read-frame read-data-frame read-close-frame - write-frame)) + write-frame + close-frame->status)) ;;; ;;; WebSocket frames @@ -397,7 +398,7 @@ WebSocket connection." (false-if-exception (write-frame (make-close-frame (frame-data frame)) port))) (close-port port) - #f) + frame) ((ping-frame? frame) ;; Per section 5.5.3, a pong frame must include the exact ;; same data as the ping frame. |