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

diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index e3c817e87d9d033c080871d48210049a259739fe..94e67e8bb758b3312c1f8564bd3ee12686c3cf7c 100644 (file)
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -4999,6 +4999,7 @@ USA.
   (files "thread")
   (parent (runtime))
   (export ()
+         assert-thread-mutex-owned
          block-thread-events
          condition-type:no-current-thread
          condition-type:thread-dead
@@ -5015,7 +5016,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 549509246d375e1722a80b7eaad96f5327ef7ad3..b517141484a7ee327ac6ed73cd6743d9e29d2b47 100644 (file)
--- a/src/runtime/thread.scm
+++ b/src/runtime/thread.scm
@@ -1041,8 +1041,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)