From f82b19034aa588a744fff713416bd914778681eb Mon Sep 17 00:00:00 2001 From: Christopher Allan Webber Date: Sun, 15 Jan 2017 09:26:27 -0600 Subject: [PATCH] web: Rename handler slot to http-handler. * 8sync/systems/web.scm (, web-server-handle-request): Rename handler slot to http-handler. --- 8sync/systems/web.scm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/8sync/systems/web.scm b/8sync/systems/web.scm index ce1f6c7..597fd00 100644 --- a/8sync/systems/web.scm +++ b/8sync/systems/web.scm @@ -54,8 +54,10 @@ #:accessor web-server-addr) (socket #:init-value #f #:accessor web-server-socket) - (handler #:init-keyword #:handler - #:getter web-server-handler)) + (upgrade #:init-value '() + #:allocation #:each-subclass) + (http-handler #:init-keyword #:http-handler + #:getter web-server-http-handler)) (define-method (initialize (web-server ) init-args) (next-method) @@ -171,7 +173,7 @@ as we're alive." (define (web-server-handle-request web-server message request body) (receive (response body) - ((web-server-handler web-server) request body) + ((web-server-http-handler web-server) request body) (receive (response body) (sanitize-response request response body) (<-reply message response body)))) -- 2.31.1