Croatian GenRP corrected

This commit is contained in:
Aarne Ranta
2024-04-03 18:47:59 +02:00
parent cd3a2e0ac4
commit 2363da4b2f

View File

@@ -33,7 +33,7 @@ concrete ExtendHrv of Extend = CatHrv **
with (Grammar = GrammarHrv)
**
open
ResHrv
ResHrv, ParadigmsHrv
in {
---lin ReflPossPron = justDemPronFormsAdjective reflPossessivePron ;
@@ -45,7 +45,7 @@ lin
} ;
GenRP num cn = {
s = \\g, n, c => Grammar.IdRP.s ! g ! n ! Gen ++ num.s ! cn.g ! c ++ cn.s ! n ! c
s = \\g, n, c => (adjFormsAdjective (mkA "čiji").posit).s ! g ! n ! c ++ num.s ! cn.g ! c ++ cn.s ! n ! c
} ;
}