From 7838272680af2d3b48e678833b927837aa17982e Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Tue, 3 Jul 2012 15:50:24 -0400 Subject: [PATCH] Use send-feedback --- ssh-session.rkt | 22 +++++++++------------- 1 file changed, 9 insertions(+), 13 deletions(-) diff --git a/ssh-session.rkt b/ssh-session.rkt index 72e254f..b0cf0f3 100644 --- a/ssh-session.rkt +++ b/ssh-session.rkt @@ -723,15 +723,13 @@ conn) (channel-roles cname (lambda (inbound-stream outbound-stream) - (list (send-message + (list (send-feedback (channel-message outbound-stream (channel-stream-config maximum-packet-size - extra-request-data)) - 'subscriber) - (send-message + extra-request-data))) + (send-feedback (channel-message outbound-stream - (channel-stream-credit initial-window-size)) - 'subscriber)))))) + (channel-stream-credit initial-window-size)))))))) (define (handle-msg-channel-open-confirmation packet message conn) (match-define (ssh-msg-channel-open-confirmation local-ref @@ -749,13 +747,11 @@ [remote-ref remote-ref] [outbound-packet-size maximum-packet-size])) conn) - (send-message (channel-message outbound-stream - (channel-stream-config maximum-packet-size - extra-request-data)) - 'subscriber) - (send-message (channel-message outbound-stream - (channel-stream-credit initial-window-size)) - 'subscriber))) + (send-feedback (channel-message outbound-stream + (channel-stream-config maximum-packet-size + extra-request-data))) + (send-feedback (channel-message outbound-stream + (channel-stream-credit initial-window-size))))) (define (handle-msg-channel-open-failure packet message conn) (match-define (ssh-msg-channel-open-failure local-ref