Allow elements out of context.

[gedcom-parse.git] / gedcom / compat.c

diff --git a/gedcom/compat.c b/gedcom/compat.c
index 3997fe695278d589e838a7f0e470125339b20f78..2cbf8185ff1ee9b8a7af3eed288a1b5e99da789c 100644 (file)
--- a/gedcom/compat.c
+++ b/gedcom/compat.c
@@ -269,6 +269,12 @@ int compat_mode(Compat_rule rule)
   return (compat_matrix[rule] & compatibility);
 }
 
+void compat_close()
+{
+  compatibility_program = 0;
+  compatibility = 0;
+}
+
 /********************************************************************/
 /*  C_NO_SUBMITTER                                                  */
 /********************************************************************/