projects
/
8sync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Remove the wrap-apply surrounding websocket-client-loop in <websocket-server>
[8sync.git]
/
8sync
/
systems
/
websocket
/
server.scm
diff --git
a/8sync/systems/websocket/server.scm
b/8sync/systems/websocket/server.scm
index 81c9244bcfdca42cfe96fae2e10036da12a4bde7..47510672b4ebcc7ef84266000ff49e25a1bb10f4 100644
(file)
--- a/
8sync/systems/websocket/server.scm
+++ b/
8sync/systems/websocket/server.scm
@@
-68,8
+68,7
@@
string."
(define-actor <websocket-server> (<web-server>)
((ws-send websocket-server-send))
(define-actor <websocket-server> (<web-server>)
((ws-send websocket-server-send))
- (upgrade-paths #:init-value `(("websocket" .
- ,(wrap-apply websocket-client-loop)))
+ (upgrade-paths #:init-value `(("websocket" . ,websocket-client-loop))
#:allocation #:each-subclass
#:accessor .upgrade-paths)
#:allocation #:each-subclass
#:accessor .upgrade-paths)