From: Taylor R Campbell <campbell@mumble.net>
Date: Fri, 14 Nov 2014 04:18:27 +0000 (+0000)
Subject: Rename GUARANTEE-THREAD-MUTEX-OWNED to ASSERT-THREAD-MUTEX-OWNED.
X-Git-Tag: mit-scheme-pucked-9.2.12~376^2~115
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=fbcb27a8b94091f942d740d6a1a60a0ece8322cb;p=mit-scheme.git

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

diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index e3c817e87..94e67e8bb 100644
--- 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 549509246..b51714148 100644
--- 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)