From: Jan (janneke) Nieuwenhuizen Date: Thu, 18 Mar 2021 13:20:02 +0000 (+0100) Subject: websocket: server: Remove .upgrade-paths accessor. X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=2bfbcbfed8b14e226f6c5ed6ec23e8f0fb21a440;p=8sync.git websocket: server: Remove .upgrade-paths accessor. * 8sync/systems/websocket/server.scm (): Remove .upgrade-paths accessor. There's a method for doing this. --- 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)