(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)