From 67de922d9d9677059c9adc27a96d2686c0f4b3e8 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Fri, 19 Feb 2016 19:37:22 -0500 Subject: [PATCH] Unlock thread after waiting for cv --- srfi/18.sld | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/srfi/18.sld b/srfi/18.sld index 7d37455a..e2972cea 100644 --- a/srfi/18.sld +++ b/srfi/18.sld @@ -151,7 +151,8 @@ (Cyc-mutex-unlock! mutex)) ((condition-variable? (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 (error "mutex-unlock! - unhandled args" mutex opts))))