projects
/
8sync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Rename wrap -> live-wrap and use in websocket server module.
[8sync.git]
/
8sync
/
systems
/
websocket
/
server.scm
diff --git
a/8sync/systems/websocket/server.scm
b/8sync/systems/websocket/server.scm
index 47510672b4ebcc7ef84266000ff49e25a1bb10f4..7a7526d054f8a4fadb645d6448eedc84d887ccdb 100644
(file)
--- a/
8sync/systems/websocket/server.scm
+++ b/
8sync/systems/websocket/server.scm
@@
-68,7
+68,8
@@
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" . ,websocket-client-loop))
+ (upgrade-paths #:init-value `(("websocket" .
+ ,(live-wrap websocket-client-loop)))
#:allocation #:each-subclass
#:accessor .upgrade-paths)
#:allocation #:each-subclass
#:accessor .upgrade-paths)