fixed Danish mkA for -ig adjectives

2018-02-08 15:32:11 +01:00
parent a87a16b19f
commit 632ec84356
2 changed files with 4 additions and 0 deletions
--- a/src/danish/MorphoDan.gf
+++ b/src/danish/MorphoDan.gf
@@ -66,6 +66,9 @@ oper

  aRask : Str -> Adj = \rask -> 
    mkAdject rask rask (rask + "e") (rask + "ere") (rask + "est") ;
+    
+  aDejlig : Str -> Adj = \dejlig -> 
+    mkAdject dejlig (dejlig+"t") (dejlig + "e") (dejlig + "ere") (dejlig + "st") ;


 -- verbs
--- a/src/danish/ParadigmsDan.gf
+++ b/src/danish/ParadigmsDan.gf
@@ -368,6 +368,7 @@ oper

  regADeg a = case Predef.dp 2 a of {
    "sk" => aRask a ;
+    "ig" => aDejlig a ;
    _ => case last a of {
    "t" => aAbstrakt a ;
    _ => aRod a