2 files changed, 9 insertions, 0 deletions
diff --git a/src/runtime/c/pgf/pgf.c b/src/runtime/c/pgf/pgf.c
index 898d3be05..f0da5bddf 100644
--- a/src/runtime/c/pgf/pgf.c
+++ b/src/runtime/c/pgf/pgf.c
@@ -109,6 +109,12 @@ pgf_get_language(PgfPGF* pgf, PgfCId lang)
 	return gu_map_get(pgf->concretes, &lang, PgfConcr*);
 }
 
+GuString
+pgf_concrete_name(PgfConcr* concr)
+{
+	return concr->name;
+}
+
 void
 pgf_iter_categories(PgfPGF* pgf, GuMapItor* fn, GuExn* err)
 {
diff --git a/src/runtime/c/pgf/pgf.h b/src/runtime/c/pgf/pgf.h
index 032834d77..ef68e651f 100644
--- a/src/runtime/c/pgf/pgf.h
+++ b/src/runtime/c/pgf/pgf.h
@@ -91,6 +91,9 @@ pgf_iter_languages(PgfPGF*, GuMapItor*, GuExn* err);
 PgfConcr*
 pgf_get_language(PgfPGF*, PgfCId lang);
 
+GuString
+pgf_concrete_name(PgfConcr*);
+
 void
 pgf_iter_categories(PgfPGF* pgf, GuMapItor* fn, GuExn* err);