diff --git a/new-server.rkt b/new-server.rkt index 31f3561..2a44460 100644 --- a/new-server.rkt +++ b/new-server.rkt @@ -160,6 +160,8 @@ ;; Wait for a cycle to let the reader and writer get ;; started, then tell the reader we are ready for a ;; single packet and spawn the session manager. + + ;; TODO: try using presence instead of the yield. (yield #:state state (transition state (send-message (inbound-credit 1))