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
|
||||
; 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