server-session-connected avoids assert-lock of server-connected
This commit is contained in:
parent
0013c917b3
commit
419e90e42f
|
@ -23,6 +23,7 @@
|
||||||
(on-start (log-syndicate/distributed-info "Connected to ~v" address))
|
(on-start (log-syndicate/distributed-info "Connected to ~v" address))
|
||||||
(on-stop (log-syndicate/distributed-info "Disconnected from ~v" address))
|
(on-stop (log-syndicate/distributed-info "Disconnected from ~v" address))
|
||||||
(assert (server-connected address))
|
(assert (server-connected address))
|
||||||
|
(assert (server-session-connected address))
|
||||||
|
|
||||||
(when (log-level? syndicate/distributed-logger 'debug)
|
(when (log-level? syndicate/distributed-logger 'debug)
|
||||||
(set! w (let ((w* w))
|
(set! w (let ((w* w))
|
||||||
|
|
|
@ -17,7 +17,7 @@
|
||||||
(retracted (tcp-accepted id))
|
(retracted (tcp-accepted id))
|
||||||
(asserted (tcp-rejected id _))
|
(asserted (tcp-rejected id _))
|
||||||
(retracted (server-transport-connected address))
|
(retracted (server-transport-connected address))
|
||||||
(retracted (server-connected address)))
|
(retracted (server-session-connected address)))
|
||||||
|
|
||||||
(during (tcp-accepted id)
|
(during (tcp-accepted id)
|
||||||
(on-start (issue-unbounded-credit! tcp-in id))
|
(on-start (issue-unbounded-credit! tcp-in id))
|
||||||
|
|
|
@ -11,6 +11,11 @@
|
||||||
;; `server-packet` messages. Implementation-facing, where
|
;; `server-packet` messages. Implementation-facing, where
|
||||||
;; `server-connected` is part of the API.
|
;; `server-connected` is part of the API.
|
||||||
(assertion-struct server-transport-connected (address))
|
(assertion-struct server-transport-connected (address))
|
||||||
|
;; Like `server-connected`, but for reflecting the state of the
|
||||||
|
;; session to the transport driver. Observation of
|
||||||
|
;; `server-session-connected` is not creative (of `server-connected`),
|
||||||
|
;; unlike observation of `server-connected`.
|
||||||
|
(assertion-struct server-session-connected (address))
|
||||||
|
|
||||||
;; Internal connection protocol
|
;; Internal connection protocol
|
||||||
(assertion-struct server-poa (connection-id)) ;; "Point of Attachment"
|
(assertion-struct server-poa (connection-id)) ;; "Point of Attachment"
|
||||||
|
|
Loading…
Reference in New Issue