diff --git a/src/danish/ParadigmsDan.gf b/src/danish/ParadigmsDan.gf index 682a3a8db..a1c848d19 100644 --- a/src/danish/ParadigmsDan.gf +++ b/src/danish/ParadigmsDan.gf @@ -91,7 +91,8 @@ oper -- Worst case: give all four forms. The gender is computed from the -- last letter of the second form (if "n", then $utrum$, otherwise $neutrum$). - mkN : (dreng,drengen,drenge,drengene : Str) -> N ; -- worst case + mkN : (dreng,drengen,drenge,drengene : Str) -> Gender -> N ; -- worst case + mkN : (dreng,drengen,drenge,drengene : Str) -> N ; -- worst case, gender guessed } ; @@ -453,6 +454,7 @@ oper mkN : Str -> Gender -> N = regGenN ; mkN : (bil,bilen : Str) -> N = mk2N ; mkN : (bil,bilen,biler : Str) -> N = mk3N ; + mkN : (dreng,drengen,drenge,drengene : Str) -> Gender -> N = \x,y,z,u,g -> mk4N x y z u ** {g = g} ; mkN : (dreng,drengen,drenge,drengene : Str) -> N = mk4N ; } ; diff --git a/src/norwegian/ParadigmsNor.gf b/src/norwegian/ParadigmsNor.gf index 899f9035a..0a781c5e4 100644 --- a/src/norwegian/ParadigmsNor.gf +++ b/src/norwegian/ParadigmsNor.gf @@ -82,7 +82,9 @@ oper mkN : Str -> N ; -- predictable noun, feminine for "-e" otherwise masculine mkN : Str -> Gender -> N ; -- force gender mkN : (bil,bilen : Str) -> N ; --% - mkN : (dreng,drengen,drenger,drengene : Str) -> N -- worst case + mkN : (dreng,drengen,drenger,drengene : Str) -> N ; -- worst case, gender guessed + mkN : (dreng,drengen,drenger,drengene : Str) -> Gender -> N ; -- worst case + } ; @@ -444,6 +446,7 @@ oper mkN : Str -> N = regN ; mkN : Str -> Gender -> N = regGenN ; mkN : (bil,bilen : Str) -> N = mk2N ; + mkN : (dreng,drengen,drenge,drengene : Str) -> Gender -> N = \x,y,z,u,g -> mk4N x y z u ** {g = g} ; mkN : (dreng,drengen,drenger,drengene : Str) -> N = mk4N } ;