From 09c39fc12b71a836b24e4a7e011bbaf8b810580a Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Sat, 11 Jul 2015 13:28:57 -0700 Subject: [PATCH] Name the event registered by block-on-io-descriptor. --- src/runtime/thread.scm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) 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 () -- 2.25.1