From e4459d0ec84bacf841b6a7a0af62258415793ba8 Mon Sep 17 00:00:00 2001 From: Rutger van Beusekom Date: Wed, 18 Nov 2020 16:10:24 +0100 Subject: [PATCH 1/1] squash! websocket demo --- demos/websocket/8s-server.scm | 18 ++---------------- 1 file changed, 2 insertions(+), 16 deletions(-) diff --git a/demos/websocket/8s-server.scm b/demos/websocket/8s-server.scm index 45e62ba..c4b638f 100755 --- a/demos/websocket/8s-server.scm +++ b/demos/websocket/8s-server.scm @@ -46,22 +46,8 @@ (server (bootstrap-actor hive #:port %server-port - #:on-ws-connection - (lambda (ws) - (format (current-error-port) "on-ws-connection: ws=~s\n" ws) - (when #f - (set! (.on-close ws) - (lambda (ws) - (format (current-error-port) "on-close: ~s\n" ws))) - (set! (.on-error ws) - (lambda (ws e) - (format (current-error-port) "on-error: ~s, ~s\n" ws e))) - (set! (.on-message ws) - (lambda (ws msg) - (format (current-error-port) "on-message: ~s\n" msg))) - (set! (.on-open ws) - (lambda (ws) - (format (current-error-port) "on-open: ~s\n" ws))))) + #:on-ws-connection (lambda (ws) + (format (current-error-port) "on-ws-connection: ws=~s\n" ws)) #:on-ws-close (lambda (ws) (format (current-error-port) "on-close: ~s\n" ws)) #:on-ws-error (lambda (ws e) -- 2.31.1