X-Git-Url: https://git.dlugolecki.net.pl/?a=blobdiff_plain;ds=sidebyside;f=gedcom%2Fgedcom.y;h=bd6ea1d3d922970796af5d9743cda8d69bcab726;hb=989bc1d7262c6e767de09804fb530a5ebea55a5d;hp=b94f7fa37c612217c3d1c036e5084375037f4bd0;hpb=d41803b9c1bcafabf115a188e3b4a489103bbdca;p=gedcom-parse.git

diff --git a/gedcom/gedcom.y b/gedcom/gedcom.y
index b94f7fa..bd6ea1d 100644
--- a/gedcom/gedcom.y
+++ b/gedcom/gedcom.y
@@ -422,9 +422,13 @@ void clean_up();
 %%
 
 file        : head_sect records trlr_sect
-               { if (fail == 1) YYABORT; }
+               { compat_close();
+		 if (fail == 1) YYABORT;
+	       }
             | error
-               { clean_up(); }
+               { compat_close();
+	         clean_up();
+	       }
             ;
 
 records     : /* empty */