From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Sat, 11 Jul 2015 20:28:57 +0000 (-0700)
Subject: Name the event registered by block-on-io-descriptor.
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=09c39fc12b71a836b24e4a7e011bbaf8b810580a;p=mit-scheme.git

Name the event registered by block-on-io-descriptor.
---

diff --git a/src/runtime/thread.scm b/src/runtime/thread.scm
index e3bd9cc17..496a33560 100644
--- a/src/runtime/thread.scm
+++ b/src/runtime/thread.scm
@@ -698,9 +698,8 @@ USA.
        (if registration (error "Re-entered block-on-io-descrptor."))
        (set! registration
 	     (register-io-thread-event descriptor mode (current-thread)
-				       (lambda (mode)
-					 (set! result mode)
-					 unspecific))))
+				       (named-lambda (block-on-io-event mode)
+					 (set! result mode)))))
      (lambda ()
        (with-thread-events-blocked
 	(lambda ()