fixed non-local return behaviors

This commit is contained in:
2020-10-13 14:44:00 +00:00
parent b9f78f7c13
commit adb374f02d
2 changed files with 139 additions and 215 deletions

View File

@ -1274,7 +1274,7 @@ count++;
}
}
if (!xtn->reader_istty)
if (!xtn->reader_istty && hcl_getbclen(hcl) > 0)
{
hcl_oop_t retv;
@ -1297,7 +1297,7 @@ count++;
g_hcl = HCL_NULL;
/*hcl_dumpsymtab (hcl);*/
}
set_signal_to_default (SIGINT);
hcl_close (hcl);