Fix ordering of credit issue

This commit is contained in:
Tony Garnock-Jones 2021-06-15 13:58:26 +02:00
parent cf99f2e2b3
commit 2b18bb5b36
1 changed files with 2 additions and 2 deletions

View File

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