From: Rutger van Beusekom <rutger.van.beusekom@verum.com>
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;hp=3fdb26d51c8e181dedc8489a1ba7859bd7741fad;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 <websocket-server>
                   #: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)