diff options
| author | David Thompson <dthompson2@worcester.edu> | 2016-03-25 19:41:26 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2016-03-25 19:41:26 -0400 |
| commit | c854e0f84a40d972cbd532bbb89c97ca0126a7cf (patch) | |
| tree | 6acfa78041c0034f90e03c0c55ed738f237aef7a | |
| parent | 546ed07e47105ccbe9710b053913822d79fde652 (diff) | |
client: Return no values from close-websocket.
* web/socket/client.scm (close-websocket): Return an unspecified value.
| -rw-r--r-- | web/socket/client.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/web/socket/client.scm b/web/socket/client.scm index 48c2725..f7a44d0 100644 --- a/web/socket/client.scm +++ b/web/socket/client.scm @@ -186,7 +186,8 @@ resource described by URI-OR-STRING." (loop))))) (close-port socket) (close-port (websocket-entropy-port ws)) - (set-websocket-state! ws 'closed))) + (set-websocket-state! ws 'closed) + *unspecified*)) (define (generate-masking-key ws) "Create a new masking key using the entropy source of WS." |