From fbcb27a8b94091f942d740d6a1a60a0ece8322cb Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Fri, 14 Nov 2014 04:18:27 +0000 Subject: [PATCH] Rename GUARANTEE-THREAD-MUTEX-OWNED to ASSERT-THREAD-MUTEX-OWNED. --- src/runtime/runtime.pkg | 2 +- src/runtime/thread.scm | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) 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) -- 2.25.1