minor bug fix

This commit is contained in:
ceriel 1987-01-16 19:20:58 +00:00
parent f9f1db874f
commit faa0c191a4

View file

@ -69,7 +69,7 @@ opnfile(f,s) FILE **f; char *s; {
unlfile(f,s) FILE *f; char *s; {
fclose(f);
if (f) fclose(f);
if (unlink(s)<0)
error("%s incorrect, must be removed!!",s);
}