Elaborate on comment.

2011-10-17 21:33:33 -04:00 · 2011-10-17 21:33:33 -04:00 · 1ae939c735
parent b75b021219
commit 1ae939c735
1 changed files with 3 additions and 1 deletions
--- 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))))