projects
/
8sync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
web: Rename handler slot to http-handler.
[8sync.git]
/
8sync
/
systems
/
web.scm
diff --git
a/8sync/systems/web.scm
b/8sync/systems/web.scm
index ce1f6c74d3702fa8ddfcd080f9529c16bbe61657..597fd008574be22775837f9fe8695b1e6e12dc9c 100644
(file)
--- 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)
#: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 <web-server>) init-args)
(next-method)
(define-method (initialize (web-server <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)
(define (web-server-handle-request web-server message
request body)
(receive (response body)
- ((web-server-handler web-server) request body)
+ ((web-server-h
ttp-h
andler web-server) request body)
(receive (response body)
(sanitize-response request response body)
(<-reply message response body))))
(receive (response body)
(sanitize-response request response body)
(<-reply message response body))))