fixed Danish mkA for -ig adjectives

This commit is contained in:
Aarne Ranta committed 2018-02-08 15:32:11 +01:00
1 parent a87a16b19f
commit 632ec84356
2 files changed
+4

No files matched your search

+3
View File
@@ -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
+1
View File
@@ -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