From 17a537b5a251e4295d501a12f22d701bd00c51bc Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Mon, 24 Oct 2011 09:24:54 -0400 Subject: [PATCH] Oops - rekey-wait-deadline is absolute, not relative --- ssh-session.rkt | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/ssh-session.rkt b/ssh-session.rkt index 5aad0f2..8e3587d 100644 --- a/ssh-session.rkt +++ b/ssh-session.rkt @@ -476,8 +476,7 @@ (flush-outbound-messages! conn) (loop (struct-copy connection conn [rekey-state (rekey-local algs)]))) (sync (if (rekey-wait? rekey) - (handle-evt (alarm-evt (+ (current-inexact-milliseconds) - (* (rekey-wait-deadline rekey) 1000))) + (handle-evt (alarm-evt (* (rekey-wait-deadline rekey) 1000)) (lambda (dummy) (loop conn))) never-evt) (handle-evt (send (connection-io-room-handle conn) listen-evt)