properly skip unknown languages in pgf_write_pgf

GrammaticalFramework · Mar 14, 2024 · a8c5a4f · a8c5a4f
1 parent 280e11c
commit a8c5a4f
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/runtime/c/pgf/writer.cxx b/src/runtime/c/pgf/writer.cxx
@@ -455,7 +455,10 @@ void PgfWriter::write_pgf(ref<PgfPGF> pgf)
         size_t len = 0;
         PgfText** p = langs;
         while (*p) {
-            len++; p++;
+            if (namespace_lookup(pgf->concretes, *p) != 0) {
+                len++;
+            }
+            p++;
         }
         write_len(len);
     }