diff --git a/src/io.c b/src/io.c index 854d97a..93015d8 100644 --- a/src/io.c +++ b/src/io.c @@ -762,12 +762,24 @@ void myclose(void) /* close the specified stream */ #endif s=(int)pop(stNUMBER)->value; + if (s == -2){ + for(s=1;s