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