message.scm

(use-modules (ice-9 threads))

(define mtx (make-mutex))
(define cv (make-condition-variable))
(define v 0)

(lock-mutex mtx) ;; Lock first to declare master thread

(define t
  (call-with-new-thread
   (lambda ()
     (let A ()
       (lock-mutex mtx)
       (set! v (+ v 1))
       (format #t "A: v=~a~%" v)
       (signal-condition-variable cv)
       (wait-condition-variable cv mtx)
       (unlock-mutex mtx)
       (A)))))

(let B ()
  (set! v (+ v 1))
  (format #t "B: v=~a~%" v)
  (signal-condition-variable cv)
  (wait-condition-variable cv mtx)
  (B))
  


(join-thread t)

;; (let B ()
  
;;   (set! v (+ v 1))
;;   (format #t "B: v=~a~%" v)
;;   (unlock-mutex mtx)
;;   (signal-condition-variable cv)
;;   (B))