Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-20 14:19:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

sexp_blocker can block on fileno objects

Browse source
This commit is contained in:
Alex Shinn 2012-12-31 00:25:13 +09:00
parent 0a9dce93b0
commit f209c38f4f
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/srfi/18/threads.c
View file

@ -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