@@ -1153,6 +1153,7 @@ toPolyglossia ("en":"UK":_) = ("english", "variant=british")
1153toPolyglossia ("en":"US":_) = ("english", "variant=american")
1153toPolyglossia ("en":"US":_) = ("english", "variant=american")
1154toPolyglossia ("grc":_) = ("greek", "variant=ancient")
1154toPolyglossia ("grc":_) = ("greek", "variant=ancient")
1155toPolyglossia ("hsb":_) = ("usorbian", "")
1155toPolyglossia ("hsb":_) = ("usorbian", "")
1156+toPolyglossia ("la":"x-classic":_) = ("latin", "variant=classic")
1156toPolyglossia ("sl":_) = ("slovenian", "")
1157toPolyglossia ("sl":_) = ("slovenian", "")
1157toPolyglossia x = (commonFromBcp47 x, "")
1158toPolyglossia x = (commonFromBcp47 x, "")
@@ -1177,6 +1178,7 @@ toBabel ("fr":"CA":_) = "canadien"
1177toBabel ("fra":"aca":_) = "acadian"
1178toBabel ("fra":"aca":_) = "acadian"
1178toBabel ("grc":_) = "polutonikogreek"
1179toBabel ("grc":_) = "polutonikogreek"
1179toBabel ("hsb":_) = "uppersorbian"
1180toBabel ("hsb":_) = "uppersorbian"
1181+toBabel ("la":"x-classic":_) = "classiclatin"
1180toBabel ("sl":_) = "slovene"
1182toBabel ("sl":_) = "slovene"
1181toBabel x = commonFromBcp47 x
1183toBabel x = commonFromBcp47 x