diff options
| author | Andrew Whatson <whatson@tailcall.au> | 2023-04-21 12:08:08 +1000 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2023-04-21 21:36:46 -0400 |
| commit | f4461bef9e7b1795c85e55d423f7e20e5b6552dc (patch) | |
| tree | 7f5d48d8ba642184c9dccd25d7c3b8cb01b8153a /tests | |
| parent | 2d1a0c7ace538146e2b841620779867aaec17753 (diff) | |
client: Handle control frames in websocket-receive.
* web/socket/frame.scm (read-data-frame): New procedure, extracted from
serve-client.
* web/socket/client.scm (websocket-receive): Call read-data-frame.
Clean up the websocket if the connection was closed.
* web/socket/server.scm (serve-client): Call read-data-frame. Flush the
port after writing the handshake response.
Diffstat (limited to 'tests')
0 files changed, 0 insertions, 0 deletions