This commit is contained in:
Tony Garnock-Jones 2012-07-16 17:08:58 -04:00
parent 5fca0d7aac
commit de5e83f414
1 changed files with 1 additions and 2 deletions

View File

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