~ chicken-core (chicken-5) e8874af8a2182a3465cfbb2c9692295bbf31283c

commit e8874af8a2182a3465cfbb2c9692295bbf31283c
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Sep 6 08:34:34 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue Sep 6 08:34:34 2011 +0200

    types.db: thread-join returns multiple values (thanks to Joerg Wittenberger)

diff --git a/types.db b/types.db
index ccf8ea66..d01dfdb5 100644
--- a/types.db
+++ b/types.db
@@ -2213,7 +2213,7 @@
 (raise (procedure raise (*) noreturn))
 (seconds->time (#(procedure #:clean #:enforce) seconds->time (number) (struct time)))
 (terminated-thread-exception? (#(procedure #:pure) terminated-thread-exception? (*) boolean))
-(thread-join! (#(procedure #:clean #:enforce) thread-join! ((struct thread) #!optional * *) *))
+(thread-join! (#(procedure #:clean #:enforce) thread-join! ((struct thread) #!optional * *) . *))
 
 (thread-name (#(procedure #:clean #:enforce) thread-name ((struct thread)) *)
 	     (((struct thread)) (##sys#slot #(1) '6)))