ref: a00373d0a8d37e276bb6b1c519eddd123e1586ce
parent: 623dfe528656c058603993aa3b5cd017b08b9e9e
author: Lennart Augustsson <lennart.augustsson@epicgames.com>
date: Mon Sep 18 13:00:17 EDT 2023
Fix pasto
--- a/src/runtime/eval.c
+++ b/src/runtime/eval.c
@@ -1566,7 +1566,6 @@
case T_IO_RETURN:
CHECKIO(1);
n = ARG(TOP(1));
- POP(1);
RETIO(n);
case T_IO_GETCHAR:
CHECKIO(1);
@@ -1577,6 +1576,7 @@
RETIO(n);
case T_IO_GETRAW:
CHECKIO(0);
+ GCCHECK(1);
c = getraw();
n = mkInt(c);
RETIO(n);
@@ -1615,8 +1615,6 @@
case T_IO_FLUSH:
CHECKIO(1);
hdl = evalhandle(ARG(TOP(1)));
- n = evali(ARG(TOP(1)));
- HANDLE(n) = 0;
fflush(hdl);
RETIO(combUnit);
case T_IO_OPEN:
--
⑨