msyds/gf-rgl
1
0 Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

make it not crash on mkPN "Jósefína" feminine

Browse Source
This commit is contained in:
Inari Listenmaa committed 2026-04-01 15:41:22 +02:00
1 parent 28be4fb450
commit 4c55592af4
1 file changed
+1 -1
Download Patch File Download Diff File Expand all files Collapse all files
src/icelandic/ParadigmsIce.gf
+1 -1
View File
@@ -810,7 +810,7 @@ resource ParadigmsIce = open
regPN : Str -> Gender -> PN = \name,g -> case <name,g> of {
<base + "i",Masc> => lin PN {s = caseList name (base + "a") (base + "a") (base + "a") ; g = Masc} ;
<base + "a",Masc> => lin PN {s = caseList name (base + "u") (base + "u") (base + "u") ; g = Masc} ;
<base + "a",g> => lin PN {s = caseList name (base + "u") (base + "u") (base + "u") ; g = g} ;
<base + "ur",Masc> => lin PN {s = caseList name base (base + "i") (base + "s") ; g = Masc} ;
<base + "l",Masc> => lin PN {s = caseList name name name (name + "s") ; g = Masc} ;
<base + "s",Masc> => lin PN {s = caseList name name (name + "i") (name + "ar") ; g = Masc} ;