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) conn)
(channel-roles cname (channel-roles cname
(lambda (inbound-stream outbound-stream) (lambda (inbound-stream outbound-stream)
(list (send-message (list (send-feedback
(channel-message outbound-stream (channel-message outbound-stream
(channel-stream-config maximum-packet-size (channel-stream-config maximum-packet-size
extra-request-data)) extra-request-data)))
'subscriber) (send-feedback
(send-message
(channel-message outbound-stream (channel-message outbound-stream
(channel-stream-credit initial-window-size)) (channel-stream-credit initial-window-size))))))))
'subscriber))))))
(define (handle-msg-channel-open-confirmation packet message conn) (define (handle-msg-channel-open-confirmation packet message conn)
(match-define (ssh-msg-channel-open-confirmation local-ref (match-define (ssh-msg-channel-open-confirmation local-ref
@ -749,13 +747,11 @@
[remote-ref remote-ref] [remote-ref remote-ref]
[outbound-packet-size maximum-packet-size])) [outbound-packet-size maximum-packet-size]))
conn) conn)
(send-message (channel-message outbound-stream (send-feedback (channel-message outbound-stream
(channel-stream-config maximum-packet-size (channel-stream-config maximum-packet-size
extra-request-data)) extra-request-data)))
'subscriber) (send-feedback (channel-message outbound-stream
(send-message (channel-message outbound-stream (channel-stream-credit initial-window-size)))))
(channel-stream-credit initial-window-size))
'subscriber)))
(define (handle-msg-channel-open-failure packet message conn) (define (handle-msg-channel-open-failure packet message conn)
(match-define (ssh-msg-channel-open-failure local-ref (match-define (ssh-msg-channel-open-failure local-ref