syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Name the line-reader-factory

This commit is contained in:
Tony Garnock-Jones 2017-08-05 19:37:34 -04:00
parent 11de40ce98
commit f83f286e28
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
racket/syndicate/drivers/line-reader.rkt
View File

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