From f209c38f4f4a8cebfad70f62232ed2cd459c7ec3 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Mon, 31 Dec 2012 00:25:13 +0900 Subject: [PATCH] sexp_blocker can block on fileno objects --- lib/srfi/18/threads.c | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lib/srfi/18/threads.c b/lib/srfi/18/threads.c index 87071a73..b6acffce 100644 --- a/lib/srfi/18/threads.c +++ b/lib/srfi/18/threads.c @@ -385,6 +385,8 @@ static sexp sexp_blocker (sexp ctx, sexp self, sexp_sint_t n, sexp portorfd) { /* register the fd */ if (sexp_portp(portorfd)) fd = sexp_port_fileno(portorfd); + else if (sexp_filenop(portorfd)) + fd = sexp_fileno_fd(portorfd); else if (sexp_fixnump(portorfd)) fd = sexp_unbox_fixnum(portorfd); else