~ chicken-core (chicken-5) 59a64ea4a15644162e3c214c12f0ce578ff3b09c

commit 59a64ea4a15644162e3c214c12f0ce578ff3b09c
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Nov 17 23:48:18 2010 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Nov 17 23:48:18 2010 +0100

    make-mutex does not store current thread (thanks to Joerg Wittenberger)

diff --git a/srfi-18.scm b/srfi-18.scm
index 67aefdca..b34e9d90 100644
--- a/srfi-18.scm
+++ b/srfi-18.scm
@@ -244,11 +244,8 @@
 
 (define (mutex? x) (##sys#structure? x 'mutex))
 
-(define make-mutex
-  (lambda id
-    (let* ((id (if (pair? id) (car id) (gensym 'mutex)))
-	   (m (##sys#make-mutex id ##sys#current-thread)) )
-      m) ) )
+(define (make-mutex #!optional (id (gensym 'mutex)))
+  (##sys#make-mutex id #f))
 
 (define (mutex-name x)
   (##sys#check-structure x 'mutex 'mutex-name)