fix in PositA in Slovenian

This commit is contained in:
krasimir
2016-03-25 06:23:23 +00:00
parent ec6758d0e4
commit 39c7865e67

View File

@@ -3,10 +3,10 @@ concrete AdjectiveSlv of Adjective = CatSlv ** open ResSlv in {
lin
PositA a = {
s = \\spec,g,c,n =>
case <spec,c> of {
<Def,Nom> => a.s ! APositDefNom ;
<Def,Acc> => a.s ! APositDefAcc ;
_ => a.s ! APosit g n c
case <spec,g,n,c> of {
<Def,Masc,Sg,Nom> => a.s ! APositDefNom ;
<Def,Masc,Sg,Acc> => a.s ! APositDefAcc ;
_ => a.s ! APosit g n c
}
} ;