From 1c4c621b820e520d4cc6166e9d16f4b2a6ee179a 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 fda6a8487..9d2820690 100644 --- 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 e88751ad1..40ce81781 100644 --- 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) -- 2.25.1