From 2b18bb5b36f84a77a182ec56c8058722ce6b62f4 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Tue, 15 Jun 2021 13:58:26 +0200 Subject: [PATCH] Fix ordering of credit issue --- syndicate/drivers/tcp.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/syndicate/drivers/tcp.rkt b/syndicate/drivers/tcp.rkt index b796e3c..99780f9 100644 --- a/syndicate/drivers/tcp.rkt +++ b/syndicate/drivers/tcp.rkt @@ -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