mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 03:30:27 +02:00
Code Activity

SRFI-18 mutexes are not recursive

Browse source 
* module/srfi/srfi-18.scm (make-mutex): Not recursive.
This commit is contained in:
Andy Wingo 2016-11-05 09:40:43 +01:00
parent b197a6a5af
commit b43f11469a
1 changed files with 1 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

9
module/srfi/srfi-18.scm
View file

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