From 2bfbcbfed8b14e226f6c5ed6ec23e8f0fb21a440 Mon Sep 17 00:00:00 2001 From: "Jan (janneke) Nieuwenhuizen" Date: Thu, 18 Mar 2021 14:20:02 +0100 Subject: [PATCH] websocket: server: Remove .upgrade-paths accessor. * 8sync/systems/websocket/server.scm (): Remove .upgrade-paths accessor. There's a method for doing this. --- 8sync/systems/websocket/server.scm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/8sync/systems/websocket/server.scm b/8sync/systems/websocket/server.scm index c29ce51..11704d4 100644 --- a/8sync/systems/websocket/server.scm +++ b/8sync/systems/websocket/server.scm @@ -1,7 +1,7 @@ ;;; guile-websocket --- WebSocket client/server ;;; Copyright © 2015 David Thompson ;;; Copyright © 2017 Christopher Allan Webber -;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen +;;; Copyright © 2020,2021 Jan (janneke) Nieuwenhuizen ;;; ;;; This file is part of guile-websocket. ;;; @@ -71,8 +71,7 @@ string." ((ws-send websocket-server-send)) (upgrade-paths #:init-value `(("websocket" . ,(wrap-apply websocket-client-loop))) - #:allocation #:each-subclass - #:accessor .upgrade-paths) + #:allocation #:each-subclass) (gen-client-id #:init-thunk make-simple-counter) -- 2.31.1