[Guile-commits] 14/24: SRFI-18 mutexes are not recursive

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit b43f11469a859324d74fd9b7142b0f86e2f05d16
Author: Andy Wingo <address@hidden>
Date:   Sat Nov 5 09:40:43 2016 +0100

    SRFI-18 mutexes are not recursive
    
    * module/srfi/srfi-18.scm (make-mutex): Not recursive.
---
 module/srfi/srfi-18.scm |    9 +--------
 1 file changed, 1 insertion(+), 8 deletions(-)

diff --git a/module/srfi/srfi-18.scm b/module/srfi/srfi-18.scm
index 85ca91e..4634623 100644
--- a/module/srfi/srfi-18.scm
+++ b/module/srfi/srfi-18.scm
@@ -286,16 +286,9 @@
           (else v)))))))
 
 ;; MUTEXES
-;; These functions are all pass-thrus to the existing Guile implementations.
 
 (define* (make-mutex #:optional name)
-  (%make-mutex (threads:make-mutex 'unchecked-unlock
-                                   'allow-external-unlock
-                                   'recursive)
-               name
-               #f
-               #f
-               #f))
+  (%make-mutex (threads:make-mutex 'allow-external-unlock) name #f #f #f))
 
 (define (mutex-state mutex)
   (cond