~ chicken-core (chicken-5) 55e96744bdfcff965cec4f1ded4d4bdb2bd393b7

commit 55e96744bdfcff965cec4f1ded4d4bdb2bd393b7
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Mon Oct 25 01:46:20 2010 -0400
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Mon Oct 25 01:46:20 2010 -0400

    incorrectly named variable in scheduler.scm (reported by Kon Lovett)

diff --git a/scheduler.scm b/scheduler.scm
index 047cd61e..90e75e5a 100644
--- a/scheduler.scm
+++ b/scheduler.scm
@@ -283,9 +283,9 @@ EOF
   (let ((blocked (##sys#slot t 11)))
     (cond
      ((##sys#structure? blocked 'condition-variable)
-      (##sys#setslot blocked 2 (##sys#delq thread (##sys#slot blocked 2))))
+      (##sys#setslot blocked 2 (##sys#delq t (##sys#slot blocked 2))))
      ((##sys#structure? blocked 'thread)
-      (##sys#setslot blocked 12 (##sys#delq thread (##sys#slot blocked 12))))) )
+      (##sys#setslot blocked 12 (##sys#delq t (##sys#slot blocked 12))))) )
   (##sys#remove-from-timeout-list t)
   (##sys#clear-i/o-state-for-thread! t)
   (##sys#setslot t 3 s)