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

Close ports in the "graceful exit" case as well as on exceptions.

This commit is contained in:
Tony Garnock-Jones 2011-10-26 19:15:07 -04:00
parent 3d0d2c38e9
commit 9437241481
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ssh-transport.rkt
View File

@ -340,7 +340,8 @@
(with-handlers ((exn? (lambda (e)
(close-input-port in)
(raise e))))
(main-loop initial-crypto-configuration 0 0)))
(main-loop initial-crypto-configuration 0 0)
(close-input-port in)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Encrypted Packet Output
@ -394,4 +395,5 @@
(with-handlers ((exn? (lambda (e)
(close-output-port out)
(raise e))))
(main-loop initial-crypto-configuration 0)))
(main-loop initial-crypto-configuration 0)
(close-output-port out)))