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

Use send-feedback

This commit is contained in:
Tony Garnock-Jones 2012-07-03 15:50:24 -04:00
parent f59bec0145
commit 7838272680
1 changed files with 9 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
ssh-session.rkt
View File

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