~ chicken-core (chicken-5) 1b37b43822f3349f26490cc77d06b6cd34bc2618

commit 1b37b43822f3349f26490cc77d06b6cd34bc2618
Author:     Peter Bex <peter.bex@xs4all.nl>
AuthorDate: Tue Feb 26 19:41:43 2013 +0100
Commit:     Mario Domenech Goulart <mario.goulart@gmail.com>
CommitDate: Tue Feb 26 15:45:57 2013 -0300

    Fix mutex-lock! type signature (thanks to Joerg Wittenberger for reporting this bug)
    
    Signed-off-by: Mario Domenech Goulart <mario.goulart@gmail.com>

diff --git a/types.db b/types.db
index 1d035cf9..3424af0c 100644
--- a/types.db
+++ b/types.db
@@ -2298,7 +2298,7 @@
 (make-condition-variable (#(procedure #:clean) make-condition-variable (#!optional *) (struct condition-variable)))
 (make-mutex (#(procedure #:clean) make-mutex (#!optional *) (struct mutex)))
 (make-thread (#(procedure #:clean #:enforce) make-thread ((procedure () . *) #!optional *) (struct thread)))
-(mutex-lock! (#(procedure #:clean #:enforce) mutex-lock! ((struct mutex) #!optional * (struct thread)) boolean))
+(mutex-lock! (#(procedure #:clean #:enforce) mutex-lock! ((struct mutex) #!optional * (or boolean (struct thread))) boolean))
 
 (mutex-name (#(procedure #:clean #:enforce) mutex-name ((struct mutex)) *)
 	    (((struct mutex)) (##sys#slot #(1) '1)))