minor bug fix
This commit is contained in:
parent
0a1c65dd81
commit
9653a59787
@ -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);
|
||||
}
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user