From c854e0f84a40d972cbd532bbb89c97ca0126a7cf Mon Sep 17 00:00:00 2001 From: David Thompson Date: Fri, 25 Mar 2016 19:41:26 -0400 Subject: client: Return no values from close-websocket. * web/socket/client.scm (close-websocket): Return an unspecified value. --- web/socket/client.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'web/socket/client.scm') 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." -- cgit v1.2.3