From 1ae939c73593b07ff6b0fbcb85fae95b7f0b4f12 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Mon, 17 Oct 2011 21:33:33 -0400 Subject: [PATCH] Elaborate on comment. --- ssh-transport.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/ssh-transport.rkt b/ssh-transport.rkt index e4bd395..5359a7d 100644 --- a/ssh-transport.rkt +++ b/ssh-transport.rkt @@ -917,7 +917,9 @@ (let loop ((new-connection-state conn)) ;; 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 - ;; 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) (if (time-to-rekey? (connection-rekey-state conn) conn) (let ((algs ((local-algorithm-list))))