Name the line-reader-factory
This commit is contained in:
parent
11de40ce98
commit
f83f286e28
|
@ -14,7 +14,8 @@
|
||||||
[(eqv? (bytes-ref bs i) b) i]
|
[(eqv? (bytes-ref bs i) b) i]
|
||||||
[else (loop (+ i 1))])))
|
[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)
|
#:name `(line-reader ,src ,dst)
|
||||||
(field [buffer #""])
|
(field [buffer #""])
|
||||||
(on (message (tcp-channel src dst $bs))
|
(on (message (tcp-channel src dst $bs))
|
||||||
|
|
Loading…
Reference in New Issue