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