Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-12 23:37:38 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Unlock thread after waiting for cv

Browse source
This commit is contained in:
Justin Ethier 2016-02-19 19:37:22 -05:00
parent d521121f16
commit 67de922d9d
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
srfi/18.sld
View file

@ -151,7 +151,8 @@
(Cyc-mutex-unlock! mutex)) (Cyc-mutex-unlock! mutex))
((condition-variable? (car opts)) ((condition-variable? (car opts))
(let ((cond-var (car opts))) (let ((cond-var (car opts)))
(condition-variable-wait! cond-var mutex))) (condition-variable-wait! cond-var mutex)
(Cyc-mutex-unlock! mutex))) ;; Per SRFI, leave mutex unlocked
(else (else
(error "mutex-unlock! - unhandled args" mutex opts)))) (error "mutex-unlock! - unhandled args" mutex opts))))