Cosmetic
This commit is contained in:
parent
5fca0d7aac
commit
de5e83f414
|
@ -50,8 +50,7 @@
|
|||
(set! active-connections new-connections))))
|
||||
|
||||
(define (depart! connection-id)
|
||||
(call-with-semaphore
|
||||
active-connection-mutex
|
||||
(call-with-semaphore active-connection-mutex
|
||||
(lambda ()
|
||||
(define new-connections (set-remove active-connections (cons (current-thread) connection-id)))
|
||||
(set! active-connections new-connections)
|
||||
|
|
Loading…
Reference in New Issue