fixes in Slo demonstrative forms

2020-05-04 13:14:44 +02:00
parent e906743c6f
commit 21f468a5f5
2 changed files with 4 additions and 3 deletions
@@ -832,7 +832,8 @@ oper
    in {
      s = \\g,n,c => case <g,n,c> of {
        <_,Pl,Dat> => dem.pdat ;
-	<Masc _ | Fem, Pl, Acc> => dem.fpnom ;
+	<Masc Anim,         Pl,     Acc> => dem.pgen ;
+	<Masc Inanim | Fem | Neutr, Pl, Nom|Acc> => dem.fpnom ;
        _ => adjAdj.s ! g ! n ! c
        } + s
      } ;