Prevent double fclose

This commit is contained in:
ceriel 2002-08-26 14:27:15 +00:00
parent 4556d261d8
commit ee2c7069e4

View file

@ -184,7 +184,6 @@ main(argc,argv) register string argv[]; {
setinit(ntneeded);
maxnt = &nonterms[nnonterms];
maxt = &tokens[ntokens];
fclose(fact);
/*
* Now, the grammar is read. Do some computations
*/
@ -198,6 +197,7 @@ main(argc,argv) register string argv[]; {
stderr);
}
else gencode(argc);
fclose(fact);
UNLINK(f_temp);
UNLINK(f_pars);
if (verbose) {