shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Fix eval bug.

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

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

@@ -1501,6 +1501,7 @@

     case T_ISINT:

       CHECK(1);

       x = evali(ARG(TOP(0)));

+      n = TOP(0);

       POP(1);

       GOIND(GETTAG(x) == T_INT ? comTrue : combFalse);

@@ -1507,6 +1508,7 @@

     case T_ISIO:

       CHECK(1);

       x = evali(ARG(TOP(0)));

+      n = TOP(0);

       POP(1);

       l = GETTAG(x);

       GOIND(T_IO_BIND <= l && l <= T_IO_FLUSH ? comTrue : combFalse);

-- 

⑨