rem: if (stat == EOF) ERROR "i/o error occurred closing %s", files[i].fname WARNING;
add: if (stat == EOF) { ERROR "i/o error occurred closing %s", files[i].fname WARNING; }
context: Cell *closefile(a) Node **a;{	register Cell *x;	int i, stat;	x = execute(a[0]);	getsval(x);	for (i = 0; i < FOPEN_MAX; i++)		if (files[i].fname && strcmp(x->sval, files[i].fname) == 0) {			if (ferror(files[i].fp))				ERROR "i/o error occurred on %s", files[i].fname WARNING;			if (files[i].mode == '|' || files[i].mode == LE)				stat = pclose(files[i].fp);			else				stat = fclose(files[i].fp);			if (stat == EOF)				ERROR "i/o error occurred closing %s", files[i].fname WARNING;			xfree(files[i].fname);			files[i].fname = NULL;	/* watch out for ref thru this */			files[i].fp = NULL;		}	tempfree(x, "close");	return(true);}