From de5e83f414f2046149fc8e31942448a74172b535 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Mon, 16 Jul 2012 17:08:58 -0400 Subject: [PATCH] Cosmetic --- chat-sync.rkt | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/chat-sync.rkt b/chat-sync.rkt index 0e61bdc..e098e70 100644 --- a/chat-sync.rkt +++ b/chat-sync.rkt @@ -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)