shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Try without final gc().

--- a/src/runtime/eval.c

+++ b/src/runtime/eval.c

@@ -3849,7 +3849,7 @@

   execio(&TOP(0));

   prog = TOP(0);

   POP(1);

-  gc();                      /* Run finalizers */

+  //gc();                      /* Run finalizers */

 #if SANITY

   if (GETTAG(prog) != T_AP || GETTAG(FUN(prog)) != T_IO_RETURN)

     ERR("main execio");

-- 

⑨