~ chicken-core (chicken-5) 92a5123b4c6999cfb132f8375f98776da6b743a8

commit 92a5123b4c6999cfb132f8375f98776da6b743a8
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sat Feb 25 13:02:21 2012 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sat Feb 25 13:02:21 2012 +0100

    types.db fix for mutex-state by Joerg Wittenberger

diff --git a/types.db b/types.db
index f7e73f30..e114ecea 100644
--- a/types.db
+++ b/types.db
@@ -2245,7 +2245,7 @@
 (mutex-specific-set! (#(procedure #:clean #:enforce) mutex-specific-set! ((struct mutex) *) undefined)
 		     (((struct mutex) *) (##sys#setslot #(1) '6 #(2))))
 
-(mutex-state (#(procedure #:clean #:enforce) mutex-state ((struct mutex)) symbol))
+(mutex-state (#(procedure #:clean #:enforce) mutex-state ((struct mutex)) (or symbol (struct thread))))
 (mutex-unlock! (#(procedure #:clean #:enforce) mutex-unlock! ((struct mutex) #!optional (struct condition-variable) *) undefined))
 
 (mutex? (#(procedure #:pure #:predicate (struct mutex)) mutex? (*) boolean))