From f83f286e28e0afcd428ef6af165f6a49178ccd07 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Sat, 5 Aug 2017 19:37:34 -0400 Subject: [PATCH] Name the line-reader-factory --- racket/syndicate/drivers/line-reader.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/racket/syndicate/drivers/line-reader.rkt b/racket/syndicate/drivers/line-reader.rkt index 6f62108..68650d7 100644 --- a/racket/syndicate/drivers/line-reader.rkt +++ b/racket/syndicate/drivers/line-reader.rkt @@ -14,7 +14,8 @@ [(eqv? (bytes-ref bs i) b) i] [else (loop (+ i 1))]))) -(spawn (during/spawn (observe (tcp-channel-line $src $dst _)) +(spawn #:name 'line-reader-factory + (during/spawn (observe (tcp-channel-line $src $dst _)) #:name `(line-reader ,src ,dst) (field [buffer #""]) (on (message (tcp-channel src dst $bs))