From 94372414812926ee1073dc621a6370c13f5a6916 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Wed, 26 Oct 2011 19:15:07 -0400 Subject: [PATCH] Close ports in the "graceful exit" case as well as on exceptions. --- ssh-transport.rkt | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/ssh-transport.rkt b/ssh-transport.rkt index e53c263..d22481a 100644 --- a/ssh-transport.rkt +++ b/ssh-transport.rkt @@ -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)))