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

revert last patch. forgot to set errno before checking for it.

Browse source
This commit is contained in:
Alex Shinn 2011-10-13 06:51:44 +09:00
parent 52781e59e0
commit b56cfbb083
1 changed files with 1 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
sexp.c
View file

@ -1984,13 +1984,10 @@ int sexp_maybe_block_port (sexp ctx, sexp in, int forcep) {
if (sexp_port_flags(in) == SEXP_PORT_UNKNOWN_FLAGS)
sexp_port_flags(in) = fcntl(sexp_port_fileno(in), F_GETFL);
if (sexp_port_flags(in) & O_NONBLOCK) {
errno = 0;
if (!forcep
&& (((c = sexp_read_char(ctx, in)) == EOF)
#if SEXP_USE_STRING_STREAMS
&& (ferror(sexp_port_stream(in)) == EAGAIN)
#else
&& (errno == EAGAIN)
#endif
&& sexp_opcodep((f=sexp_global(ctx, SEXP_G_THREADS_BLOCKER))))) {
((sexp_proc2)sexp_opcode_func(f))(ctx sexp_api_pass(f, 1), in);
return 1;