(use srfi-18)
(define mtx (make-mutex))
(define cv (make-condition-variable))

(define t1 (lambda () (thread-sleep! 1)(condition-variable-signal! cv)))

(thread-start! t1)
(mutex-unlock! mtx cv)