From: Rutger van Beusekom Date: Wed, 18 Nov 2020 15:10:24 +0000 (+0100) Subject: squash! websocket demo X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=e4459d0ec84bacf841b6a7a0af62258415793ba8;p=8sync.git squash! websocket demo --- 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)