Fix ordering of credit issue
This commit is contained in:
parent
cf99f2e2b3
commit
2b18bb5b36
|
@ -232,11 +232,11 @@
|
||||||
#:on-data on-data
|
#:on-data on-data
|
||||||
#:on-eof [on-eof void]
|
#:on-eof [on-eof void]
|
||||||
#:on-credit [on-credit void])
|
#:on-credit [on-credit void])
|
||||||
(when initial-credit (send-credit conn initial-credit initial-mode))
|
|
||||||
(assert-control conn
|
(assert-control conn
|
||||||
#:on-data on-data
|
#:on-data on-data
|
||||||
#:on-eof on-eof
|
#:on-eof on-eof
|
||||||
#:on-credit on-credit))
|
#:on-credit on-credit)
|
||||||
|
(when initial-credit (send-credit conn initial-credit initial-mode)))
|
||||||
|
|
||||||
(define (assert-control conn
|
(define (assert-control conn
|
||||||
#:on-data on-data
|
#:on-data on-data
|
||||||
|
|
Loading…
Reference in New Issue