fixed genitive es/en in German adjectives and determiners
This commit is contained in:
1 parent
08b6910eb8
commit
1f030252a1
4 files changed
+34
-10
No files matched your search
@@ -32,6 +32,10 @@ oper
|
||||
{s,sp : Gender => PCase => Str ; n : Number ; a : Adjf ; isDef : Bool} = \isDef,n,dies ->
|
||||
{s,sp = appAdj (regA dies) ! n ; n = n ; a = Weak ; isDef = isDef} ;
|
||||
|
||||
detUnlikeAdj : Bool -> Number -> Str ->
|
||||
{s,sp : Gender => PCase => Str ; n : Number ; a : Adjf ; isDef : Bool} = \isDef,n,dies ->
|
||||
{s,sp = appAdj (regDetA dies) ! n ; n = n ; a = Weak ; isDef = isDef} ;
|
||||
|
||||
mkOrd : {s : Degree => AForm => Str} -> {s : AForm => Str} = \a ->
|
||||
{s = a.s ! Posit} ;
|
||||
|
||||
|
||||
Reference in new issue
Block a user