summaryrefslogtreecommitdiff
path: root/web/socket/client.scm
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2016-03-25 19:41:26 -0400
committerDavid Thompson <dthompson2@worcester.edu>2016-03-25 19:41:26 -0400
commitc854e0f84a40d972cbd532bbb89c97ca0126a7cf (patch)
tree6acfa78041c0034f90e03c0c55ed738f237aef7a /web/socket/client.scm
parent546ed07e47105ccbe9710b053913822d79fde652 (diff)
client: Return no values from close-websocket.
* web/socket/client.scm (close-websocket): Return an unspecified value.
Diffstat (limited to 'web/socket/client.scm')
-rw-r--r--web/socket/client.scm3
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."