Signal an error in unlock-thread-mutex when mutex is not owned,

before applying remove-thread-mutex! to #f, which produces a less
helpful error message.

diff --git a/src/runtime/thread.scm b/src/runtime/thread.scm
index 5ea1867f924ad50cdc8f579d55c367c8e74a35d7..693aacd28ad626ff5abfa8610f925d6a68cfb38d 100644 (file)
--- a/src/runtime/thread.scm
+++ b/src/runtime/thread.scm
@@ -1211,7 +1211,8 @@ USA.
   (without-interrupts
    (lambda ()
      (let ((owner (thread-mutex/owner mutex)))
-       (if (and owner (not (eq? owner (current-thread))))
+       (if (or (not owner)
+              (not (eq? owner (current-thread))))
           (error "Don't own mutex:" mutex))
        (%unlock-thread-mutex mutex owner)))))