~ chicken-core (chicken-5) e0747bad8fcddd9ed32558a7d514c02c5e5a3d3c

commit e0747bad8fcddd9ed32558a7d514c02c5e5a3d3c
Author:     Jörg F. Wittenberger <Joerg.Wittenberger@softeyes.net>
AuthorDate: Sat Nov 7 18:54:48 2015 +0100
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Sat Nov 21 12:57:29 2015 +1300

    In thread-join! handle joining a thread in state `sleeping` with timeout.
    
    Signed-off-by: Peter Bex <peter@more-magic.net>
    Signed-off-by: Evan Hanson <evhan@foldling.org>

diff --git a/NEWS b/NEWS
index 4527b448..12e0014e 100644
--- a/NEWS
+++ b/NEWS
@@ -17,6 +17,10 @@
      declared types exactly.  Specializations are matched from first to
      last to resolve ambiguities (#1214).
 
+- Core libraries
+   - SRFI-18: thread-join! no longer gives an error when passed a
+      thread in the "sleeping" state (thanks to Joerg Wittenberger)
+
 4.10.1
 
 - Core libraries
diff --git a/srfi-18.scm b/srfi-18.scm
index 7c908f21..2ae489da 100644
--- a/srfi-18.scm
+++ b/srfi-18.scm
@@ -183,7 +183,7 @@
 		   (##sys#make-structure 
 		    'condition '(uncaught-exception)
 		    (list '(uncaught-exception . reason) (##sys#slot thread 7)) ) ) ) )
-		((blocked ready)
+		((blocked ready sleeping)
                  (if limit
                      (return
                       (if tosupplied