From 9793fa0edf14245fdb42a1fc574addb0689b8b7a Mon Sep 17 00:00:00 2001
From: Alex Shinn <alexshinn@gmail.com>
Date: Thu, 27 Aug 2020 10:23:56 +0900
Subject: [PATCH] inc fileno count on sexp_make_input_port (issue #690)

---
 sexp.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/sexp.c b/sexp.c
index 4ee1e543..7fa0031d 100644
--- a/sexp.c
+++ b/sexp.c
@@ -1906,8 +1906,10 @@ sexp sexp_make_input_port (sexp ctx, FILE* in, sexp name) {
   /* here to avoid gc timing issues */
   if (in && fileno(in) >= 0) {
     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_count(sexp_port_fd(p));
+    }
   }
 #endif
   sexp_port_cookie(p) = SEXP_VOID;