Elaborate on comment.
This commit is contained in:
parent
b75b021219
commit
1ae939c735
|
@ -917,7 +917,9 @@
|
||||||
(let loop ((new-connection-state conn))
|
(let loop ((new-connection-state conn))
|
||||||
;; YUCK: in order to be able to send our disconnect messages in
|
;; YUCK: in order to be able to send our disconnect messages in
|
||||||
;; the with-handlers above, we need to know the most up-to-date
|
;; the with-handlers above, we need to know the most up-to-date
|
||||||
;; connection state. This is a thorny, ugly problem.
|
;; connection state (so that we can encrypt and MAC the outbound
|
||||||
|
;; message using the right algorithms and sequence
|
||||||
|
;; numbers). This is a thorny, ugly problem.
|
||||||
(set! conn new-connection-state)
|
(set! conn new-connection-state)
|
||||||
(if (time-to-rekey? (connection-rekey-state conn) conn)
|
(if (time-to-rekey? (connection-rekey-state conn) conn)
|
||||||
(let ((algs ((local-algorithm-list))))
|
(let ((algs ((local-algorithm-list))))
|
||||||
|
|
Loading…
Reference in New Issue