- if (next->fbuf != 0) {
- if ((next->funit & FDEF) == 0) {
- fclose(next->fbuf);
- if (ferror(next->fbuf)) {
- ERROR(ECLOSE, next->pfname);
- return;
- }
- }
- if ((next->funit & TEMP) != 0 &&
- unlink(next->pfname)) {
- ERROR(EREMOVE, next->pfname);
- return;
- }
- }
- _actfile[next->fblk] = FILNIL;
- next = next->fchain;