Rename GUARANTEE-THREAD-MUTEX-OWNED to ASSERT-THREAD-MUTEX-OWNED.

diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index fda6a8487aad374e256b0bca9f80d5397a39905d..9d28206900cd669aa51dc9683f4b1b884baed6d9 100644 (file)
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -4976,6 +4976,7 @@ USA.
   (files "thread")
   (parent (runtime))
   (export ()
+         assert-thread-mutex-owned
          block-thread-events
          condition-type:no-current-thread
          condition-type:thread-dead
@@ -4992,7 +4993,6 @@ USA.
          deregister-timer-event
          detach-thread
          exit-current-thread
-         guarantee-thread-mutex-owned
          join-thread
          lock-thread-mutex
          make-thread-mutex

diff --git a/src/runtime/thread.scm b/src/runtime/thread.scm
index e88751ad1d282f4af35e95ae495368c75f51c89c..40ce81781cf8206669f305bf49f176cb946c04c3 100644 (file)
--- a/src/runtime/thread.scm
+++ b/src/runtime/thread.scm
@@ -1039,8 +1039,8 @@ USA.
   (if (not (thread-mutex? mutex))
       (error:wrong-type-argument mutex "thread-mutex" procedure)))
 
-(define (guarantee-thread-mutex-owned mutex #!optional caller)
-  (guarantee-thread-mutex mutex 'GUARANTEE-THREAD-MUTEX-OWNED)
+(define (assert-thread-mutex-owned mutex #!optional caller)
+  (guarantee-thread-mutex mutex 'ASSERT-THREAD-MUTEX-OWNED)
   (if (not (eq? (current-thread) (thread-mutex/owner mutex)))
       (if (default-object? caller)
          (error "Don't own mutex:" mutex)