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

inc fileno count on sexp_make_input_port (issue #690)

Browse source
This commit is contained in:
Alex Shinn 2020-08-27 10:23:56 +09:00
parent 5860a65368
commit 9793fa0edf
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
sexp.c
View file

@ -1906,8 +1906,10 @@ sexp sexp_make_input_port (sexp ctx, FILE* in, sexp name) {
/* here to avoid gc timing issues */ /* here to avoid gc timing issues */
if (in && fileno(in) >= 0) { if (in && fileno(in) >= 0) {
sexp_port_fd(p) = sexp_lookup_fileno(ctx, fileno(in)); sexp_port_fd(p) = sexp_lookup_fileno(ctx, fileno(in));
if (sexp_filenop(sexp_port_fd(p))) if (sexp_filenop(sexp_port_fd(p))) {
sexp_fileno_openp(sexp_port_fd(p)) = 1; sexp_fileno_openp(sexp_port_fd(p)) = 1;
++sexp_fileno_count(sexp_port_fd(p));
}
} }
#endif #endif
sexp_port_cookie(p) = SEXP_VOID; sexp_port_cookie(p) = SEXP_VOID;