[Chicken-hackers] [PATCH] mutex-lock! sometimes not srfi-18 compliant

[Jörg F. Wittenberger]

Hi,

try the test case:

(use srfi-18)
;; Make a locked mutex
(define mux (make-mutex 'foo))
(mutex-lock! mux #f #f)

;; Have a thread waiting for it.

(define t1
  (thread-start!
   (lambda ()
    (mutex-lock! mux #f #f)
    (print "Got " mux " state " (mutex-state mux) "\n"))))

;; Give it time to actually wait.

(thread-sleep! 1)

;; Let it lock the mux

(mutex-unlock! mux)

(exit 0)

-----

>From my reading of srfi-18 I would expect it to print

   Got #<mutex> state not-owned

but it prints

   Got #<mutex> state #<thread: thread7>

With the attached patch it prints what I'd expect.

Best

/Jörg

0001-mutex-lock.patch
Description: Text Data