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

check for a valid stream before trying to access the fileno

Browse source
This commit is contained in:
Alex Shinn 2011-02-20 13:32:55 +09:00
parent 810e693a8c
commit 0fcba1ad3d
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
sexp.c
View file

@ -1646,7 +1646,7 @@ static int sexp_decode_utf8_char(const unsigned char* s) {
int sexp_maybe_block_port (sexp ctx, sexp in, int forcep) {
sexp f;
int c;
if (sexp_port_fileno(in) >= 0) {
if (sexp_port_stream(in) && sexp_port_fileno(in) >= 0) {
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) {