syndicate-lang
/
racket-ssh-2012
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Oops - rekey-wait-deadline is absolute, not relative

This commit is contained in:
Tony Garnock-Jones 2011-10-24 09:24:54 -04:00
parent 282d3671ad
commit 17a537b5a2
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ssh-session.rkt
View File

@ -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)