fix in PositA in Slovenian

src/slovenian/AdjectiveSlv.gf

@@ -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
         }
       } ;