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

need to check for errno == EAGAIN in sexp_maybe_block_port

Browse source
This commit is contained in:
Alex Shinn 2010-12-11 22:30:44 -08:00
parent 73d5083d10
commit d29eea3780
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
sexp.c
View file

@ -1632,6 +1632,7 @@ int sexp_maybe_block_port (sexp ctx, sexp in, int forcep) {
if (sexp_port_flags(in) & O_NONBLOCK) { if (sexp_port_flags(in) & O_NONBLOCK) {
if (!forcep if (!forcep
&& (((c = sexp_read_char(ctx, in)) == EOF) && (((c = sexp_read_char(ctx, in)) == EOF)
&& (errno == EAGAIN)
&& sexp_opcodep((f=sexp_global(ctx, SEXP_G_THREADS_BLOCKER))))) { && sexp_opcodep((f=sexp_global(ctx, SEXP_G_THREADS_BLOCKER))))) {
((sexp_proc2)sexp_opcode_func(f))(ctx sexp_api_pass(f, 1), in); ((sexp_proc2)sexp_opcode_func(f))(ctx sexp_api_pass(f, 1), in);
return 1; return 1;