X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=demos%2Fwebsocket%2F8s-server.scm;fp=demos%2Fwebsocket%2F8s-server.scm;h=c4b638f6e375baf05126200caf802437fb828b64;hb=e4459d0ec84bacf841b6a7a0af62258415793ba8;hp=45e62bac9a1bfbfa451b55260bc819b8bd3d4129;hpb=3fdb26d51c8e181dedc8489a1ba7859bd7741fad;p=8sync.git

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)