mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-29 22:40:34 +02:00
Code Activity

srfi-18: Use lambda* optional arguments.

Browse source 
* module/srfi/srfi-18.scm (make-mutex, make-condition-variable): Use
  optional arguments.
This commit is contained in:
Andy Wingo 2016-10-30 21:44:35 +01:00
parent bbcc128153
commit 7078218a92
1 changed files with 10 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -282,13 +282,12 @@
;; MUTEXES
;; These functions are all pass-thrus to the existing Guile implementations.
(define make-mutex
(lambda name
(let ((n (and (pair? name) (car name)))
(m (threads:make-mutex 'unchecked-unlock
'allow-external-unlock
'recursive)))
(and n (hashq-set! object-names m n)) m)))
(define* (make-mutex #:optional name)
(let ((m (threads:make-mutex 'unchecked-unlock
'allow-external-unlock
'recursive)))
(when name (hashq-set! object-names m name))
m))
(define (mutex-name mutex)
(hashq-ref object-names (check-arg-type threads:mutex? mutex "mutex-name")))
@ -323,11 +322,10 @@
;; CONDITION VARIABLES
;; These functions are all pass-thrus to the existing Guile implementations.
(define make-condition-variable
(lambda name
(let ((n (and (pair? name) (car name)))
(m (threads:make-condition-variable)))
(and n (hashq-set! object-names m n)) m)))
(define* (make-condition-variable #:optional name)
(let ((m (threads:make-condition-variable)))
(when name (hashq-set! object-names m name))
m))
(define (condition-variable-name condition-variable)
(hashq-ref object-names (check-arg-type threads:condition-variable?