syndicate-lang
/
racket-matrix-2012
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Cosmetic

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
chat-sync.rkt
View File

@ -50,8 +50,7 @@
(set! active-connections new-connections)))) (set! active-connections new-connections))))
(define (depart! connection-id) (define (depart! connection-id)
(call-with-semaphore (call-with-semaphore active-connection-mutex
active-connection-mutex
(lambda () (lambda ()
(define new-connections (set-remove active-connections (cons (current-thread) connection-id))) (define new-connections (set-remove active-connections (cons (current-thread) connection-id)))
(set! active-connections new-connections) (set! active-connections new-connections)