username now stored along with related input output ports
This commit is contained in:
parent
52edc75849
commit
5d36ba1d5d
@ -115,7 +115,7 @@
|
|||||||
|
|
||||||
;TODO retrive user name for client here
|
;TODO retrive user name for client here
|
||||||
; do some error checking
|
; do some error checking
|
||||||
(define username-evt (read-line-evt out))
|
(define username-evt (sync (read-line-evt in 'linefeed)))
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user